while ($in !~ /[a-zA-Z0-9]/) { ... }