m[^ ( [^|]+ ) \| ]x and $current{ $1 } = $_ while <CURRENT>;
...
    if( m[^ ( [^|]+ ) \| ]x and exists $current{ $1 } ) {

##</code><code>##

(my $e=index($_,"|"))>0 and $current{substr($_,0,$e)}=$_ while <CURRENT>;
...
    if((my $e=index($_,"|"))>0 and exists $current{substr($_,0,$e)) {