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