#!/usr/bin/perl
while (<>) {
    s@GO:@IPRGO:@g;
    s@ selective binding@@;
    s@ binding@@;
    s@namespace:.*@namespace: iprgo@;
    s@Interacting selectively and non-covalently with @@;
    if (m@^def:.*InterPro:IPR(\d+)@) {
        print "equivalent_to: IPR:$1\n";
    }
    s@IPRGO:0019904@IPR:000000@;
    print;
    $id = $1 if m@^id: (\S+)@;
    if (m@^name: (.*)@) {
        print "synonym: \"$1\" EXACT [$id]\n";
    }
}