$w = 'nice'; $r = 'A';
s/\b\w+(\s+$w)\b/$r$1/g;