for my $line (@lines) {
    if ($line =~ /^Forecast for/ && !$adeldesc) {
        while ($lines[$cnt++] ne "") {
            $adeldesc .= " $lines[$cnt]";
        }
    }

    if ($line =~ /^([\w\s]+):.*?Max\s+(\d+)/) {
        $cities{$1}{max} = $2;
    }
    $cnt++;
}