$;=sub{$_=$_[0]; !(1 & length $_)?$|.&{$;}($|x length pack "H*",$_):/^.0/?'!'.&{$;}("$_$|$_$_"):''};
print join undef,
    map { my $way; map{$way=substr $way x26 .$|x ord $_, 97}split//; chr length &{$;}($way) }
qw/

five one
clap

wow

call cloy
code iris ends
golf jab
dust maw fuss
foil bump

go

/
