Help for this page

Select Code to Download


  1. or download this
    perl -lane '$F[1]=~s/(chr\w[^_]?)_.*\b/$1/;print $`. "\t". $F[1] ."\t"
+ .$'"'"