while (my $line = <FILE>) {
        $line =~ /(.*?): (.*?)$/m;
        ($key, $value) = (lc $1, $2);
        next if !$key || !$value;
        if ($key eq "image") {
            if (!exists $db->{$value}) {
                # not in the database, so skip this image
                while ($_ = <FILE>) { last if /^--/; }
                next;
            }