c:\@Work\Perl\monks\MadhAric>perl -wMstrict -le
"my $string = 'A log and a axe, an log and an axe';
 print qq{'$string'};
 ;;
 $string =~ s/\b([Aa])(\s+[aeiou])/$1n$2/g;
 print qq{'$string'};
"
'A log and a axe, an log and an axe'
'A log and an axe, an log and an axe'