Форум АНТИЧАТ - Написали мы маленькую программку на perl

есть у меня базы данных в ручныю переберать и изменять что либо трудно да и какйо пасс лист из них получится
вот решили мы прогу для нашей цели написать может комунибуть поможет ;)

суть ее раздилить какой либо файл где находится пробел на 2 части (мне понадобилось создать брутлист )
part1
1234567 holykiller
1234567 holykiller
dreamworks harlequin
jack1e azn13oi116
1987dq s3ntm3
7777777777 colo123
creature syndicate
ssbbraz auroranova
william willxcool
dozn8sdqn dualshock
elephant coldwind
feishi5227 wljackie
hellfire hidex85
xiuhan babaluso
playboy dreamfire
310523 xhan2x

1)после запуска создатся 3 файла
в 1file.txt левый столбик
2file.txt правый столбик
ну а в 3file.txt все вместе то что мы указали при
Type the original file path and name
чтобы роверить если программу не ошиблась
писали для winxp =)

#!/usr/bin/perl
print "Type the original file path and name:\n";
my $path=<STDIN>;
open(FILE,"$path") or die("$path not found");
open(FILE2,">text2.txt");
open(FILE3,">text3.txt");
while(<FILE>)
{
@arr=split(//,$_);
$flag=0;
for($i=0;$i<=$#arr;$i++)
{
if($arr[$i] ne " " and $flag==0)
{
print FILE2 "$arr[$i]";
}
elsif($arr[$i] ne " " and $flag!=0)
{
print FILE3 "$arr[$i]";
}
elsif($arr[$i] eq " ")
{
$flag=1;
}
}
print FILE2 "\n";
}
close(FILE2);
close(FILE3);
open(FILE2,"text2.txt");
open(FILE3,"text3.txt");
open(FILE4,">text4.txt");
print FILE4 <FILE2>,<FILE3>;
close(FILE);
close(FILE2);
close(FILE3);
close(FILE4);
print "\n\ndone!";

такс возникло пару минусов, сегодня завтра я изменю ее
1) можно добовлять в главный passw.txt лист новые пароли, и проверять если нету таких уже в списке
2)программа автоматически будет удалять повторные пароли которые уже находятся в списке для брута
3)можно будет менять списки для брута если, пароль больше 9 символов а задали 8 максимум что больше 8 будет удалятся.. например для ICQ