split () mas manter delimitador

Eu nunca usei o Perl antes e tenho uma pergunta 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

Eu quero dividir essa string no '.' Mas eu quero manter o período. Como pode ser isto alcançado?

questionAnswers(2)

yourAnswerToTheQuestion