Select Code to Download

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

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

print "$result underscore\n";