Select Code to Download

local $_ = shift;
s/\A[ \t]+//;
...
tr/a-zA-Z0-9//cd;
return unless length;
...

my $x = shift;
$x =~ s/\A[ \t]+//;
...
$x =~ tr/a-zA-Z0-9//cd;
return unless length $x;
...