print BLAH::chg("word", qr/(\d)/);   # print "nope"
"2" =~ /(2)/;
print BLAH::chg("word", qr/(\d)/);   # print "nope"
print BLAH::chg("3", qr/(\d)/);   # print "yes"
                                                                                
package BLAH;
sub chg {
   return $_[0] =~ $_[1] ? "yes\n" : "nope\n";
}

# Alternatively, you can do:
#
# if($_[0] =~ $_[1])
# {
#   return "yes\n";
# }
# return "nope\n";
__OUTPUT__
nope
nope
yes