Perl задачи. Перевод буквы в верхний регистр. Как сделать так, чтобы переводил буквы в верхний регистр после точки, восклицательного знака,вопросительного знака?

[Maxis10]

Есть код на языке Perl. Переводит буквы в верхний регистр. Как сделать так, чтобы переводил буквы в верхний регистр после точки, восклиц.знака,вопросительного знака? Использовал регулярные выражения.

open (FILE, "in.txt");
@var = <FILE>;
open (FILE1, ">out.txt");
$size = @var;
for($i = 0; $i < $size; $i++)
{
	@A = split ("//", $var[$i]);
	$t = $var[$i];


	$t=~tr/(?:!:.)[a-z]/[A-Z]/;
	
	print FILE1 $t;
}

close FILE;
close FILE1;