foreach my $search (keys %patdic) {
    s/$search/$patdic{$search}/g;
}