Select Code to Download

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

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