Select Code to Download

# Untested
my $ScanString =~ /
                       (                         # start of capture   
+   
...
my $substring = $1;

my $found_doc = $substring =~ /\b doc \b/ix; # \b means boundary, so b
+eginning or end of a word