{ split($0,tfile,"_")
 print tfile[1] 
}