package Regexp;

use strict;
use warnings;

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

package main;

use strict;
use warnings;

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