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

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