while (<F1>)
{
    my ($number) = /^\s*(\d+)/;

    if (defined $number)
    {
        $high_number = $number if $number > $high_number;
    }
}