print "> "; while () { chomp; print "WORD: $_\n> "; }