#!/usr/bin/perl
while(<>) {
    chomp;
    next if m/^\!/;
    if (/^(GO:\d+)\s+(.*)/) {
        print "[Term]\nid: $1\nname: $2\nnamespace: biological_process\n\n";
    }
    else {
        warn "bad line: $_";
    }
}