combo.pl или проблема парсинга /ect/passwd

Сегодня понадобилось отпарсить довольно большой /ect/passwd .Решил заюзать скрипт combo.pl от Forb'a
Но не тут то было)
Парсинг проходит нормально,но выходной файл имеет следущий вид:

Code:

root:root [B]квадратики[/B] shutdown:shutdown

И т.д..
BrutusA2 как комбо лист не воспринемает.
И так:

Code:

./combo.pl shadow.txt 1.txt

не так:

Code:

./combo.pl shadow.txt   pwds

Мож у кого есть другой парсер или совет)
Код combo.pl

Code:

#!/usr/bin/perl

exit print "Usage $0 <infile> <outfile>\n" unless $ARGV[1];

$goodshell='sh';
open(IN,"$ARGV[0]");
open(OUT,">$ARGV[1]");
while(<IN>) {
chomp;
($u,@undef)=split ':';
if (defined($goodshell)) {
if ($undef[(scalar $undef)-1]=~/$goodshell/) {
print OUT "$u:$u\n";
}
} else {
print OUT "$u:$u\n";
}
}
close(IN);
close(OUT);

 

?

PHP:

<?
$data='';
$f=file('/etc/passwd');
foreach($f AS $v){
list($login)=explode(':', $v);
$data.=$login.':'.$login."
";
}
$f=fopen('data.txt', 'w');
fwrite($f, trim($data));
fclose($f);
?>

 

Trinux,thx!
Проверил-пашет отлично)

 

ну и замечательно =)

 

а ты чего хотел? Тринукс гавна не советует

 

Спасибо конечно, но я лесть не очень люблю =) Тем более за 10 строк когда...