Supprimer lignes contenant du texte - PERL

Bonjour,
Je cherche à extraire une matrice de données d'un fichier texte (sortie d'un code de calcul éléments finis).
J'ai réussi à extraire le gros de mes données mais qqs lignes de texte restent.
Voici le code utilisé :

#!C:\Perl\bin\perl -w

use strict;
use warnings;

my ($file1) = @ARGV;
my ($file2);
my ($line);

$file2 = $file1 . "-data";

open FILE1, "$file1" or die "Cannot open $file1\n";
open FILE2, ">$file2" or die "Cannot open $file2\n";

while($line = <FILE1>){
if($line =~ /MODAL EFFECTIVE MASS/){
while($line = <FILE1>){
if($line =~ /TOTAL/){
last;
}
else{
print FILE2 $line;
}
}
}
}

close FILE1;
close FILE2;

Quel moyen ai-je pour ne pas copier dans le FILE2 les lignes contenant des caractères (A-Z) ?
Merci d'avance.