perl -lanE'$F[1]=~/(.*?)(chr\w[^_]?)_.*\b(.*)/; say "$1\t$1$2$3\t$3"'