Select Code to Download

package Regexp;

...
my $string = "This is a test.\n";
my $re = qr/\bis\b/;
print "Match!\n" if $re->wierd( $string );

package WierdRE;
...
my $string = "This is a test.\n";
my $re = WierdRE->new( '\bis\b' );
print "Match!\n" if $re->wierd( $string );