dividir () pero mantener delimitador

Nunca he usado Perl antes y tengo una pregunta básica.

 my $string1 = "Hi. My name is Vlad. It is snowy outside.";

 my @array = split('.' $string1); ##essentially I want this, but I want the period to be kept

Quiero dividir esta cadena en el '.' Pero quiero mantener el período. ¿Cómo se puede lograr esto?