perl -lane '$F[1]=~s/(chr\w[^_]?)_.*\b/$1/p;print ${^PREMATCH}. "\t". $F[1] ."\t" .${^POSTMATCH}'