image: path/to/image.jpg
attribute1: value
attribute2: value
[...]
attributeN: value
----------
image: path/to/next/image.jpg
[...]

##</code><code>##

    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;
            }