while ($in !~ /\w/) { ... }