#!/usr/bin/perl
#
# Breaks lines of text into single words on a line each - Kees Cook 1997

while (<STDIN>) {
	@words = split(/[_\W]+/,$_);
	foreach $word (@words) {
		print "$word\n";
	}
}