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