s/\r?\n$// or die;
($w, $f, $s) = /^(.+):?\t(.)([!?]?)$/ or die "Bad Line: $_";
next unless $w =~ /^[A-Za-z\']+$/;
s/\r?\n$// or die;
($w, $f, $s) = /^(.+):?\t(.)([!?]?)$/ or die "Bad Line: $_";
next unless $w =~ /^[A-Za-z\']+$/;
if ($s eq '!' || $s eq '') {
print OYES $w, "\n" if $f eq '#';
print BYES $w, "\n" if $f eq '&';
if ($s eq '!' || $s eq '') {
print OYES $w, "\n" if $f eq '#';
print BYES $w, "\n" if $f eq '&';