Help for this page
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; ...