1: 
   2:        %A=('r'=>"\n","\t"=>'#','/'=>
   3:      's','f'=>'p',"b"=>'n');@C=qw (e
   4:     ! r/ / e );foreach $k (sort keys
   5:    %A){ @B=(" ",'u','i',"\b",'l');$s
   6:   .=qq{$k$B[$x++]$A{$k}$C[$x] \b};if
   7:  ($x==1){$t=$k.$B[$x-1].$A{$k};}#ops 
   8: } print$A{r}.$s;#i h8 left over \s's
   9: 
  10: 
  11: I hate it when I need to complete a 
  12: line in these with comments... :o)
  13: 
  14: