use strict;
use warnings;

my $r = qr/test/;
print $r -> match( 'test' ) ? "Match\n" : "No match\n";
bless $r, 'beans';
print $r -> match( 'test' ) ? "Match\n" : "No match\n";

package beans;
sub match { $_[1] =~ $_[0] }

package Regexp;
sub match { $_[1] =~ $_[0] }