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