Help for this page

Select Code to Download


  1. or download this
    sub foo { $^O=~/((.*))/; print for @_ }
  2. or download this
    foo("$2") if "foobar"=~/(...)(...)/
  3. or download this
    foo($2) if "foobar"=~/(...)(...)/
  4. or download this
    $ perl -le'$x = "41"; 0+$x; print for ("$x" ^ "3"), ($x ^ "3")'
1
42