Help for this page
my @array; while(<$file>){ ... tr/A-Z//d; push @array, [split /\s+/]; }
my @array; while(my $line = <$file>){ ... $line =~ tr/A-Z//d; push @array, [split /\s+/, $line]; }