foo\$\'bar\$\`baz
"foo\$'bar\$`baz"
'foo$'"'"'bar$`baz'
'foo$'\''bar$`baz'

##</code><code>##

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