while ($in =~ /\W/) {
  # do something
}