"Stephen Silver" <ocalocal at btinternet.com> writes: > You should look at the Encode module instead. Okey dokey. -- $;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}} split//,"ten.thgirb\@badanoj$/ --";$\=$ ;-> ();print$/