just a little exercise, to rest is to rust :) 
$;="BUS"=>$a=$/=>$_=$;=>$b=''=>$;=r(split//)=>$;="\L$;".' ::{"hpaj"}'=
+>
s>$b>$;>ee=>,$_=::(),die r(split//).$a;sub r{$b=>(@_&&pop().r(@_))||''
+}

[download]

regards,
tomte

Hlade's Law:

If you have a difficult task, give it to a lazy person --
they will find an easier way to do it.

Back to Obfuscated Code