if (index($str, '_') < 0) {  
    print "no underscore\n";  
}
else {
    print "with underscore\n";
}