s/\b\w+\s+nice\b/A nice/g;

##</code><code>##

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