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