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

##</code><code>##

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