Select Code to Download

use strict;
use warnings;
...
{
    print "[$substr] was not found in [$string]\n";
}

Found [Plumbing] in [ABC Plumbing] at 4
Matched [Plumbing] in [ABC Plumbing]