# Preprocessing phase.
my @subs = map {my($r, $s) = split /\t/; [qr/$r/, $s]} @Patts;
# Real stuff.
open(my $in,  "<", "...") or die "...";
open(my $out, ">", "...") or die "...";
while (<$in>) {
    s/$_[0]/$_[1]/g for @subs; # No need for /ee, is there?
    print $out $_;
}
close $out or die "...";
[download]