#!/usr/bin/perl
$count = 0;


#print "mkdir ".$location."/".$date."\n";
#system("mkdir ".$location."/".$date."\n");


while($line = <STDIN>) {
  chomp($line);
  #print "cp ".$line ." ".$location."/".$date."\n";
#system("removeme apache_log.1 ".$line. " \n");
#  system("cp ".$line ." ".$location."/".$date."\n");
#print("cd /home/".$line."/www\n");
#print("ln -s /var/log/httpd/".$line." stats\n");


next if $line =~ /xmozilla/;


if ( $line =~ /mail:/) {
# 	$line =~ s/(\w+)/\u\L$1/g; # upper/lower case
 	$line =~ s/(\w+)/\L$1/g; # upper/lower case
	$line =~ s|mail: ||;
	$line =~ s|.net$|.net,|;
	$line =~ s|.com$|.com,|;
	$line =~ s|.org$|.org,|;
	$line =~ s|.edu$|.edu,|;
	$line =~ s|.us$|.us,|;
	

	$count++;
	if ($count ==49 ) {
		print ("\n\n");
		$count = 0;
	}


	print ($line."\n");
}

}
exit;


__END__


 if(-e "/path/to/file.txt") { true } else { false }
if(!(-e "/path/to/file.txt")) { does not exists; }