[oak perl] Puzzle [solved]

[George Woolley]

Belden,
Hm, that's an interesting way to approach the puzzle!
Well, I did figure it was a tad easy for you. :)
      -- George

On Monday 17 February 2003 4:19 pm, Belden Lyman wrote:
>      % 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