#!/usr/local/bin/perl

open (CANTON, "canton.tab");
open (PHO, ">database.tab");
while (<CANTON>) {
	/^([^\t]*\t[^\t]*\t[^\t]*\t[^\t]*\t[^\t]*\t[^\t]*)/;
	print PHO "$1\n";
}
close (CANTON);
close (PHO);
