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