Select Code to Download

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

warn $text, ' on page ', $page, ' must be wrong' if $page < $lastpage;

sub valid($){
    my ($text, $page) = split "\t", shift;
...
    $lastpage = $page;
    return ($text, $page);
}