Help for this page
my $n = 3; my $newword = NEW; ... one two one two NEW one two NEW four
s/((?:\w+\s+){$n_minus_one})(\w+)/$1$newword/;
s/((?:[\w'\-]+[^\w'\-]+){$n_minus_one})(\w+)/$1$newword/;