#!/usr/local/bin/perl

## Enter a short description of the script

use strict;
use warnings;

binmode STDOUT , ':utf8';
my $fileName = shift;

open(IFILE, "<:encoding(utf-8)", $fileName) or die("Couldn't open the file $fileName\n");

while(<IFILE>){
	chomp();
	s/^\s+//;
	s/\s+$//;
	
	my @tokens = split /\s+/;
	foreach my $token (@tokens){
		print $token,' none',"\n";
	}
	print "\n";
}
close IFILE;