#!/usr/bin/perl

while(<>) {
    chomp;
    my @vals = split(/\t/,$_);

    # HACK! Assume only direct annotation for PB and identical PB
    if ($vals[4] eq 'GO:0005515' || $vals[4] eq 'GO:0042802') {
        my $ext = "has_input(" . $vals[7] . ")";
        if ($vals[15]) {
            $vals[15] .= ",$ext";
        }
        else {
            $vals[15] = "$ext";
        }
    }
    print join("\t", @vals)."\n";
}