#!usr/bin/perl
open(FTP, "ftp.txt");
@ftp = <FILE>;
close(FILE);
open(DOM, ">>domains.txt");
foreach $ftp (@ftp){
($landp, $domain) = split("@",$ftp);
chomp($domain);
print DOM $domain."\n";
tr/a-zA-Z//cd}
close(DOM);