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


##</code><code>##

#!/usr/bin/env perl

use strict;
use warnings;

$_=q{nell'amaca};
my $search=q{nell'([[:alpha:]]+a)};
my $subst='na $1';

s/$search/$subst/g;
print;
print "\n";