while ($in =~ /\W/) { # do something } #### while ($in !~ /\w/) { ... } #### while ($in =~ /[^a-zA-Z0-9]/) { # do something } #### while ($in !~ /[a-zA-Z0-9]/) { ... }