open IN, "<$filename" or die "Cannot open $filename\n";
my @lines = <IN>;
close IN or die "Cannot close $filename\n";
@lines = grep !/\s*[a-qs-zA-Z]/, @lines;