my @output;
foreach my $line (@log)
{
   $line =~ m#\[(\d+)\,\'(.+)\]#i;
   print "we found $1 and $2\n\n";

   my $one = $1;
   my $two = $2;
   $two =~ s/'//g;

print LOG "<a href='http://stpap11/EAD/administrator/EditPackage.aspx?PackageID=$one&SMSPackageID=$one&Title=&PackageType=0' target='new'>$two</a><br>";
}