my $re = qr!yes|no!;
my $re2 = qr!${re}\sthankyou!;
print "polite yes or no\n" if "yes thankyou" =~ $re2;