Select Code to Download

for my $line (@lines) {
    next if $line =~ /\d/;
    print $line if $line =~ $regex_that_is_working;
}