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