#!/usr/bin/env perl
# prep script for circos plot to generate a shortened ID tag for PIs for circos.conf.

while (<>) {
    chomp;
    $N = @A = split;
    $Nn = @An = split(/,/, $A[2]);
    
    $LN = substr($An[0],0,3);
    #print "[$LN] \n";
    $ID = "${LN}${An[1]}";
    print "$_\t$ID\n";
}
