#!/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";