Select Code to Download

my @pat;
foreach my $r (@seq) {
...
   }
   print Newfile;
}

my $seq = join '|', @seq;
my %seq;
...
   s/($seq)/$seq{$1}/go;
   print Newfile;
}