On Sat, 2 Feb 2002, Bill -OSX- Jones wrote: > > On Saturday, February 2, 2002, at 01:40 AM, Rick Myers wrote: > > s///e and s///ee really does. > > > > e 'eval's the s/// results and ee re'eval's THAT result :)
I guess it's time for me to brag about things I did with a few /e use strict;my$s=';pop';$_='';# 59 /e, © 2001 Philippe "BooK" Bruhat *_=*ARGV;@_=qw(4a4a2bfe01ac410d0105f4fd0dae30150dfab448f90208fa0d98 pop print+chr(shift) print+chr(shift) unshift@_,(shift()+shift())x2 push@_,(pop,pop)x24 ; unshift@_,(map{unpack'c',$_}split//)[0..25] ; s/../chr(hex$&)/eg $_=substr(shift,0,52) @_=map{s|$|$s|s;$_}@_;pop) ;s//$s/eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee; :-) Solution on http://www.perlmonks.org/index.pl?node_id=89199 -- Philippe "BooK" Bruhat A substitute is never as good as the genuine article. (Moral from Groo The Wanderer #67 (Epic))