my($line, @line);

while(<IN>)
{
	$line=$_;
	chomp($line);
	@line = split(/\./,$line);
	
	foreach(@line){
	print OUT "$_\n";
	}
	
}