#!/usr/bin/perl

use warnings;
use strict;

open my $fh, '<', 'uniprotfile' or die "Can't open uniprot file: $!";

while (defined(my $line = <$fh>)) {
    chomp $line;
    if ($line =~ /^(AC|OS|OX|ID|GN)\s+(.*)/) {
        print  $1, $2, "\n";
    }
}