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

$sentence =~ s:(\w+\s)+(\bnice\b.*?\.):A $2:g;

print "$sentence\n";