#!/usr/bin/perl

use warnings;
use strict;

while(<>) {
	die("Not a table") unless m/^Carrier +(\d+) : +(.*)$/;
	my $c = int($1);
	my @data = split / +/, $2;

	foreach(@data) {
		my $f = 133.7 + ($c-31) * (970.3/225);		# experimental
		print "$c\t$f\t$_\n";
		$c++;
	}
}
