#!/usr/bin/perl -n
chomp;
@_ = split /\s*,\s*/, $_;
if (!$ENV{NOAND} && @_) {
	@last2 = split /\s+and\s+/, pop @_;
	push @_, @last2;
}
@_ = grep /\S/, @_;
print "$_\n" for @_;