Select Code to Download

foreach $item (@results) {
@line=split/,/, $item; 
...
if ($line[0]=~/6|7|8|/) { $overlapc=$line1; 
foreach $itemi (@eresults) { @linei=split/,/, $itemi;
if ($linei1 eq $line1) { @matchone=split/ /, $linei[2]; $lengthandn=$l
+ine[4].',', $line[5];

 $matching{$matchone[0]}="$lengthandn"; 
$matching{$matchone[1]}="$lengthandn"; 
#$seenclone{$matchclone[1]}="1"; #print "678 line 1 $line[1] Length $l
+engthandn matchclone $matchclone[1] m0 $matchclone[0]\n"; } }

 tags, so allways do that, please. 


...
<br><br><code>
our @item = reverse (114, 101, 107, 99, 97, 104, 32, 108, 
114, 101, 80, 32, 114, 101, 104, 116, 111, 110, 97, 32, 116, 115, 117,
+ 74); local $my = reverse ")meti@\ ,rhc (pam tnirp";eval $my;