http://qs1969.pair.com?node_id=915688


in reply to $` $' in bash??

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

[download]

In Section Seekers of Perl Wisdom