Select Code to Download

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

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