open(FILE "file.txt") or die "oops $!";
my @data = <FILE>;
close FILE;

my @list;
foreach(@data) {
if ($_ =~ ## regexes here)
  { @list = "$_"; }
}

open (SAVED, "> saved.txt") or die "oops $!";
foreach(@list){
print "$_\n";
}