next unless defined $dirn;
next unless m/^ ([<>]) / && $1 eq $dirn;
die if m/\t/;
- die unless m/^ [<>] ([01A-Za-z. ]+?) +(\S.*)$/;
+ die unless
+ m/^ [<>] ([01A-Za-z. ]+?)(?: +|\s+\([+? A-Z0-9a-z]+\)\s+)([^() \t\n].*)$/;
$msg= $1; $rhs= $2;
- $rhs =~ s/^\([A-Z][0-9A-Z]+\) +//;
next if $rhs =~ m/^\}/;
next if $msg =~ m/\.\.\./;
$rhs =~ m/^([A-Z]+)\s/ or die "$rhs?";