Hotmail Extractor

#!/usr/bin/perl
#                        ->Coder By CrashBandicot
#                        ->sh00tz<- Magnom , m0sta , hamid , HashCat , Yunus, Ghosty , M-A

if ($^O =~ /Win/) { system("cls"); system("title hotmail Extractor"); } else { system("clear"); }

print "\n\t

                            [+++++++++++++++++++++++]
                            [|  Hotmail Extractor  |]
                            [|  by CrashBandicot   |]
                            [+++++++++++++++++++++++]


";

open (file, "<$ARGV[0]") || die "[-] Open the Mail list file Nigga !\n\n  Usage : $0 maillist.txt   ";
my @file = <file>;
close file;

print "\n [+] ".scalar(@file)." Mail Charged \n\n";
print "  [+] Try Load The Hotmail Mail !\n\n";

foreach $hotmail(@file) {

    if($hotmail =~ m/(.*?)hotmail.com/) {

        $mail = "$1hotmail.com\n";
        print "     ".$mail;
        open (a, ">>hotmail.txt");
        print a  "$mail";
        close a;
}
    if($hotmail =~ m/(.*?)hotmail.fr/) {

        $mail1 = "$1hotmail.fr\n";
        print "     ".$mail1;
        open (a, ">>hotmail.txt");
        print a  "$mail1";
        close a;

}   if($hotmail =~ m/(.*?)hotmail.co.uk/) {

        $mail2 = "$1hotmail.co.uk\n";
        print "     ".$mail2;
        open (a, ">>hotmail.txt");
        print a  "$mail2";
        close a;
}   if($hotmail =~ m/(.*?)msn.com/) {

        $mail3 = "$1msn.com\n";
        print "     ".$mail3;
        open (a, ">>hotmail.txt");
        print a  "$mail3";
        close a;
}   if($hotmail =~ m/(.*?)outlook.com/) {

        $mail4 = "$1outlook.com\n";
        print "     ".$mail4;
        open (a, ">>hotmail.txt");
        print a  "$mail4";
        close a;
}

} if ($^O =~ /Win/) { system("start hotmail.txt"); } else { system("cat hotmail.txt"); }