[oak perl] Puzzle [solved]

[Belden Lyman]

     % perl

     $_ = '!"",;\bdeeehilllnnnoprt';
     $k = 'sfvlwtmphnqgcijodrukabe';
     $re= ('(.)') x split //; /$re/;
     %dc=map{$_,${++$i} }split//,$k;
     $st.=$dc{$_} for sort keys %dc;
     print'ans: ',$st,"\n"; eval$st;
     __END__

;) Belden

George Woolley wrote:
> Thanks to those who responded.
> The shattered program has been reconstructed.
> The scattered letters have been
> returned to their rightful places.
> The mission is complete.
> And all is right with the world.
> 
>       -- George
> 
> 
>