Select Code to Download

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

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