open(FH, "input.txt");
while(<FH>){
	push (@after_split, split(/\n/));
}
push (@final_output, split(/,/,$after_split[scalar @after_split - 1]));
print "Words you wanted\t".$final_output[0]."\n";