while (<TEMP_XML_FILE>)
{

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