Help for this page
my $answer = ($str =~ /$pattern/); if ($answer) { print "Yes!"; } else { print "No."; }
print $str =~ /$pattern/ ? "Yes!" : "No.";