if ($string =~ /(int)|(char)|(bool)|(long)/){
  #my single action...
}