Select Code to Download

my $answer = ($str =~ /$pattern/);
if ($answer) {
    print "Yes!";
} else {
    print "No.";
}

print $str =~ /$pattern/ ? "Yes!" : "No.";