if($string !~ /[\s\n\r]/){
  print '$string enthält keine Whitespaces und keine Newlines!';
}