This would be a solution, keeping in mind that we assume all '.' characters terminate a line.

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

foreach (split /\./,$line) {
s/^.*(nice.*)/$1/;
$result.="A $_.";
}
print $result;