lista

#!/usr/bin/perl

use open ':std', ':encoding(cp850)';

system('cls');
$nome = $ARGV[0] || die &err;

{
  print q {
WW         WW  OOOOOOO  RRRRRR DDDDD   LL     II   SSSSSS TTTTTTTT
WW         WW OO     OO RR   R D    D  LL     II  S          TT
 WW  WWW  WW  OO     OO RRRRRR D     D LL     II  SSSSSS     TT
  WWWW WWWW   OO     OO RRRRR  D    D  LL     II      SS     TT  
   WW   WW     OOOOOOO  RR  RR DDDDD   LLLLLL II SSSSSS      TT MAKE 1.0 !

Modo de Uso: script.pl nomedoarquivo.txt                    
Fórum: http://www.forum-invaders.com.br/vb
Coded: podolcee                  
}
}

sub err{
return "Modo de Uso: script.pl nomedoarquivo.txt\n";
}

print "\n";

open (LISTA, "<$nome");
@LISTA = <LISTA>;
close(LISTA);

foreach(@LISTA){
s/\s+/\n/g; # linha sedida por Fvox !
open(save, ">>lista.txt");
print save "$_\n";
close(save) || die "Arquivo não foi salvo\n";
}
print "Arquivo \"lista.txt\" foi criado no diretório local\n";