[perl] скрипт который отделяет от акков не нужное

[MaTpOc]

Выложите плиз кто-нить скрипт который бы отделял от акка не нужное, с меня +6 минимум!
в данном случае domen@mail.ru:password:rate нужно чтоб скрипт выдал так domen@mail.ru:password, заранее биг спс!

[MaTpOc]

Если кому понадобиться вот:

open(DAT, "1.txt") || die("error1!");
@data=<DAT>;
close(DAT);

open(FILE, ">>2.txt") || die("error2!");
foreach $line (@data)
{
my($a,$b) = split(/:/, $line);
print FILE "$a:$b\n";
}
close(FILE);

Спасибо, Kaimi, скрипт его.