Select Code to Download

sub foo {
  local $_=shift;
  s/.../.../g;
}

sub foo {
  my $str=shift;
  $str=~s/.../.../g;
}

package Acme::Bleach;
$VERSION = '1.12';
...

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