At 11:17 AM 8/14/00 -0700, I wrote:
> perl -ne'/(.)(??{join"",map chr ord($1)+$_,1..3})/&&print'
perl -ne'/(.)(??{$a=$b=$1;$b++;++$a.++$b.++$b})/&&print'
--
Peter Scott
Pacific Systems Design Technologies
==== Want to unsubscribe from Fun With Perl? Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
==== unsubscribe