#!/usr/bin/perl -w
#
#

$,="\t";
$\="\n";

while(<>)
{
  # print;
  if(/fixedStep chrom=chr\S+ start=(\d+) step=1/)
  {
    $pos=$1;
  }
  # print $pos; die;
  if(/^\d+\.\d+/){printf "%d\t%.3f\n", $pos, $_; $pos++;}
}
