list($uspas,$domain) = explode('@',$ftp);
#!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);