#!/usr/bin/perl
# Divide 2nd column by the 1st column
# Rok Zitko, zitko@theorie.physik.uni-goettingen.de, April 2008

while (<>) {
  if (!/^#/) {
    chomp;
    @d = split;
    $d[1] /= $d[0];
      
    print "@d\n";
  } else {
    print;
  }
}
