while (<F>) {
s/\r?\n$// or die;
# (uncommon flag, base word, part of speach, inflected forms)
- ($d,$w,$p,$a) = /^([-@]?)(\w+) (.).*: ?(.*?)$/ or die;
+ ($d,$w,$p,$a) = /^([-@\+]?)(\w+) (.).*: ?(.*?)$/ or die;
+ $d =~ tr/+//d;
next if $d; #
@a0 = split / /, $a;
splice @a0, -1, 0, "'" if $p eq 'V' && @a0 >= 3; # insert placeholder