#!/usr/local/bin/perl
while(<>){
    if(/^(\S+)\s+(\S+)/){
        print "$1 \#T35\*1 $2\n";
    }                            
}

