my $string = q/This is a test./;
my $regex1 = qr(\bis);
my $regex2 = qr(is);
print $string =~ /$regex1/g, "\n";
print $string =~ /$regex2/g, "\n";
# prints
is
isis