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