关于匹配变量的作用域的问题

ExclusivePig

#! D:/Program Files/Perl/bin/perl.exe -W

use strict;

my $match_one;
my $match_two;

if(open(SITE_IN, "E:/Projects/Perl/site_inurl.txt" || die "$!"
{
        if(open(URL_FILE, "E:/Projects/Perl/url.txt" || die "$!"
        {
                foreach (<SITE_IN>
                {
                        if( m{^site.+) inurl:/(.+)} )
                        {
                                $match_one = $1;
                                $match_two = $2;

                                foreach(<URL_FILE>
                                {
                                        if( m{$match_one.*$match_two} )
                                        {
                                                print $_;
                                        }
                                }
                        }
                }
        }
}

close(SITE_IN);
close(URL_FILE);

WINDOWS上写的，第一行无视吧，我自己创造的，应该对吧？呵呵

问题是

$match_one = $1;
$match_two = $2;

因为如果直接在下面的正则里用$1, $2,perl会给出一堆警告，而且结果也不对了，求解，还是说必须要像现在这样？

churchmice

$1,$2这种是localized的

leigh111

读FILEHANLD时使用while.