if ($string =~ m{(?:int|char|bool|long)}) { print "found\n"; }