local $/;
$xline=<DATA>;
    chomp($xline);
    @xline = split (/(?<=\.)\s*/, $xline);     
    
    foreach(@xline){
    print "$_\n";
    }


__DATA__
This is my first line. This is my second line. This is my third line.