Help for this page

Select Code to Download


  1. or download this
    Bareword "old" not allowed while "strict subs" in use at ./re line 7.
Bareword "g" not allowed while "strict subs" in use at ./re line 7.
  2. or download this
    $ perl -MO=Deparse re
my $one = 'TestnewTest';
...
'???';
print "$one\n";
re syntax OK
  3. or download this
    $one =~ s//new/; 'old';; 'g';