#!/usr/bin/perl

$FILE = $ARGV[0];
($NAME) = $FILE =~ /(.*)\.gz/;
`zcat $FILE | egrep -v 'track|lambda|pUC19|GL' | sort -k1,1 -k2,2n | awk '{print "chr" \$1 "\t" (\$2-1) "\t" \$3 "\t" \$4}' > $NAME`;