Select Code to Download

    foreach (split(m!</Genesis:File>!si, $template)) {
            next unless (m!<Genesis:File name=\"(.*?)\">(.*)!si);

...
        }
    return $err;
    }

        foreach (split(m!</Genesis:File>!si, $text)) {
            next unless (m!<Genesis:File name=\"(.*?)\">(.*)!si);
...
                push(@temp_errors, $temp_err_msg);
                next;
                }