my ($content) = m/($string[a-z]*)/;


##</code><code>##

if (/$string/)
                         {     
                            m/($string[a-z]*)/;
                            print "$1\n";
                            print "found string -$string- in line $num\n";
                            print "<br>";
                         }