Help for this page

Select Code to Download


  1. or download this
    $ perl -e'$with=q(print "baz");$_="foobar";s/(foo)(bar)/qq(qq($with))/
+ee;print'
print "baz"$
  2. or download this
    perl -e'$with=q/$2$1);print "baz";(/;$_="foobar";s/(foo)(bar)/qq(qq($w
+ith))/ee;print'
baz$