obfuscated
BBQ
<CODE>
%A=('r'=>"\n","\t"=>'#','/'=>
's','f'=>'p',"b"=>'n');@C=qw (e
! r/ / e );foreach $k (sort keys
%A){ @B=(" ",'u','i',"\b",'l');$s
.=qq{$k$B[$x++]$A{$k}$C[$x] \b};if
($x==1){$t=$k.$B[$x-1].$A{$k};}#ops
} print$A{r}.$s;#i h8 left over \s's
</CODE>