Код:

#!/usr/bin/perl  use URI::Find; use LWP::Simple; use Email::Simple; $link=0; $i=0;$j=0; $stroka=0; @llines=(); @masive=(); open(SALES,"email.txt"); while ($line= <SALES>) {    $massive[$i]=$line;  $i++; }  close SALES;   print"printing counter\n"; print $i; print "-------------------------element-----------\n";  for($counter=0;$counter<=$i;$counter++) {  if ($massive[$counter] =~m/Classified Reminder*/)     {print " $counter \n ";}       }       for($counter2=0;$counter2<=$i;$counter2++,$j++)  {  if (($massive[$counter2] =~m/http*/) && ($massive[$counter2!=~m/a href*/]) )     {$link=" $massive[$counter2] ";print $link;print "\n";}        }