Help for this page

Select Code to Download


  1. or download this
    sub fn {
  my ($str) = @_;
...

$_ = "x";
s/(x)/fn $1/e;
  2. or download this
    \$1=<SCALAR(0x818ae08)> \$_[0]=<SCALAR(0x818ae08)> str=<x> $1=<x>
\$1=<SCALAR(0x818ae08)> \$_[0]=<SCALAR(0x818ae08)> str=<> $1=<undef>