#!usr/bin/perl
&pars;
sub pars {
open(FILE, "db.txt");
@parser = <FILE>;
close(FILE);
open(A, ">>ftp.txt");
foreach $parser (@parser)
{
($q, $w, $name, $r, $pass, $www, $site, $date, $user, $s, $y, $u,) = split(",",$parser);
print A "ftp://$user:$pass;$site\n";
tr/a-zA-Z//cd
}}
close(A);