$test_regexp = qr/url="(http:\/\/downloads\.bbc\.co\.uk\/podcasts\/worldservice\/globalnews\/(globalnews_${year}${mon}${mday}-\d{4}[a-z]\.mp3))"/; #### while () { if ((@complete_url, @filename) = ($_ =~ /$test_regexp/g)) { printf("found %d matches\n", scalar(@filename)); <>; for ($i = 0; $i < @filename; $i++) { printf("filename = %s, complete_url = %s\n", $filename[$i], $complete_url[$i]); <>; }