#!/bin/perl

$scale = 23753.0;

while (<>) {
	($dhry, $oldscale, $text) = split('\t');
	if ($dhry > $scale) {
		printf("%d\t%.3g\t%s", $dhry, $dhry/$scale, $text);
	} else {
		printf("%d\t%.2g\t%s", $dhry, $dhry/$scale, $text);
	}
}
