if( $str =~ tr/_/_/ ) {
    print "with underscore\n";
} else {
    print "no underscore\n";
}