$data = "This is a test 1. This is 
a 2 test.
This is a last test.";

@lexemes = $data =~ /([^.]+\.)\s*/g;
[download]

see perldoc perlre for more details

Update: \s* added

--
any code is tested unless otherwise stated