Help for this page

Select Code to Download


  1. or download this
    sub foo {
  local $_=shift;
  s/.../.../g;
}
  2. or download this
    sub foo {
  my $str=shift;
  $str=~s/.../.../g;
}
  3. or download this
    package Acme::Bleach;
$VERSION = '1.12';
...

print {0} "use Acme::Bleach;\n", whiten $shirt and exit;