use strict;
use warnings;

my $substr = 'Plumbing';
my $string = 'ABC Plumbing';

my $pos = index( $string, $substr );

if( $pos )
{
    print "Found [$substr] in [$string] at $pos\n";
}
else
{
    print "[$substr] was not found in [$string]\n";
}

if( $string =~ m/$substr/ )
{
    print "Matched [$substr] in [$string]\n";
}
else
{
    print "[$substr] was not found in [$string]\n";
}