Подскажите парсер логинов SMF 1.1.18

Сабж

Держи дружище!

Код:
#!/usr/bin/perl
print "= grabbing start =n";

use LWP::Simple qw(get);
open(F, '>D:hackgrab_log.txt');
$z=0;
for ($i=1;$i<=12;$i++){
print $i;
open(c, '>count.txt');
$url='https://**********/i...ile;u=&#39;.($i).'';
$cont=get($url);
print F $cont. "n";
$z=$z+1;
print C $z;
close C;

}
close F;
print "= grabbing done! =n";И парсер!



Код:
#!/usr/bin/perl
print "= parsing stert =n";

open(TT, 'D:Hackgrab_log.txt');
open(F, '>D:Hackresultpars.txt');
while ($line = <TT>)
{
$x=index($line, "<title>");
$z=rindex($line, "</title>");
if($x>-1 && $z>-1){
$long=$z-$x;
$res=substr($line, ($x+1), ($long-1));
print F $res. "n";
$x=-1;
$z=-1;
}
}
print "= parsing done! =n";
close TT;
close F;

Вот и поговорили