get UniProt ID from kegg orthology web page.

gistfile1.pl

#!/usr/bin/env perl -w
use strict;

my $fh;

open $fh, '<', $ARGV[0];
while (my $line =  <$fh> ) {
    if ( $line =~ /www\.uniprot\.org\/uniprot\/(\w+)/){
	print $1, "\n";
    }
}