#! /usr/bin/perl


open (WORD, '<', 'words.txt');

while ($lines = <WORD>){
	@word = split "", $lines;
	
	print @word."\n";
}

print "\n\n";