#!/usr/bin/perl

$FILE = $ARGV[0];
`grep -v track $FILE | grep -v lambda | grep -v pUC19 | sort -k1,1 -k2,2n | awk '{print \$1 "\t" (\$2-1) "\t" \$3 "\t" \$4}' > $FILE.v2`;