#!/usr/local/bin/perl -w

while(<>) {

    @a = split(/\s+/, $_);
    foreach $item (@a) {
	print $item, "\n";
    }

}

