Select Code to Download

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

    while (my $line = <FILE>) {
        $line =~ /(.*?): (.*?)$/m;
...
                while ($_ = <FILE>) { last if /^--/; }
                next;
            }