if ($string =~ tr/a-zA-Z0-9 //c) { 
  # trigger error message. 
} 

##</code><code>##

if ($string =~ tr/a-zA-Z0-9 \t\n//c) { 
  # trigger error message. 
}