if ($string =~ /int/) ...
elsif ($string =~ /char/) ...
elsif ($string =~ /bool/) ...
elsif ($string =~ /long/) ...


##</code><code>##

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