my $file = <STDIN>;

chomp($file);
 
if ($file=~/[a-zA-Z0-9_]\.dat/){
  
open(DATOS, "$file") || die "No se puede abrir el archivo, o no existe en el directorio";
while (<DATOS>){
 
#    print "$_\n" if m/^\d/;
    my @lines;
    my @line = @lines if m/^\d/;                                                                                                                            print "@lines";