Select Code to Download

use strict; use warnings;

...
open my $file, '<file1.txt' or die "$!";
while( <$file> ) { next if /$regex/; print }
close $file;