my ($text, $page) = split "\t", $line;