while( <> ){
        while(/(E99|99)(\w+)(?=\|)|\n/){
                $key .= $`; $hash{$key}++; $key = '->'.$2;
                $_ = $';
        }
}

foreach (sort keys %hash){
        print "$_ $hash{$_}\n" if $hash{$_} >= 2;
}