#!/usr/bin/perl
use strict;
use warnings;

my @strings = ('A dog ate an apple',
               'A apple ate a dog',
               'A apple ate a oak',
              );
for my $string (@strings)  {
    $string =~ s/\b([Aa])(\s+[aeiou])/$1n$2/g;
    print "$string\n";
}