[Fun With Perl] print scalar reverse "\n", skcirt, _lave_, diputs

[kpreid@ibm.net (Kevin Reid)]

$s = 's/(\$\w+)/$1/';
$tricks = '$stupid';
$eval = '$tricks';
$stupid = '$eval';
for (1..9) {
  $_ = $tricks;
  $e .= 'e';
  eval $s . $e;
  print $_, "\n";
}
__END__

-- 
 Kevin Reid: |    Macintosh:      
  "I'm me."  | Think different.
    

==== Want to unsubscribe from this list? (Don't you love us anymore?)
==== Well, if you insist... Send mail with body "unsubscribe" to
==== fwp-request@technofile.org