Select Code to Download

$test_regexp = qr/url="(http:\/\/downloads\.bbc\.co\.uk\/podcasts\/wor
+ldservice\/globalnews\/(globalnews_${year}${mon}${mday}-\d{4}[a-z]\.m
+p3))"/;

while (<TEMP_XML_FILE>)
{
...
            printf("filename = %s, complete_url = %s\n", $filename[$i]
+, $complete_url[$i]);
            <>;
        }