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


##</code><code>##

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