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