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

print "$result underscore\n";