Select Code to Download

my $str = "this is a test";</p>
my $sub = "is a test";
if ($str =~ /\b$sub\b/) {
    
    print "match at char ",@-[0], "\n";
}