package WierdRE;

sub new {
    my( $class, $regexp ) = @_;
    bless qr/$regexp/, $class;
}

sub wierd {
    print "Invoked wierd\n";
    return $_[1] =~ $_[0];
}


package main;

use strict;
use warnings;

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