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
@a = ();
foreach (@a0) {
- s/ {.+?}//g; s/ \(.+?\)//g;
+ s/ \{.+?\}//g; s/ \(.+?\)//g;
s/ \| / /g; s/ \/ / /g;
push @a, (split / /, $_);
}