#!/usr/bin/perl
use strict;
use warnings;

while(<>) { 
	my ($wyraz);
	my (@linia)=split;
	for $wyraz (@linia) { 
		print $wyraz,"\n";
	}
}