$test = "This is a nice weather. He is a nice guy. We have some nice food in our dinner.";

$test =~ s/(?:.*?)(\bnice\b[^.]*\.\s*)/A $1/g;

print $test;