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

##</code><code>##

my $result = 
      ( $str =~ tr/_/_/ )
    ? "with "
    : "no ";

print "$result underscore\n";