perl 能解决grep使用变量的问题吗？

如果这样的话
/$name\b/

use strict;
use warnings;

open MATCH,"b";
open OUT, ">>c" or die "Cannot create file: $!\n";
foreach my $match (<MATCH>) {
        chomp($match);
        open FILE, "a";
        my @array = grep /$match\b/, <FILE>;
        print OUT @array;
        print @array;
}

行了，结帖

#!/usr/local/bin/perl
open(EP,"b");
open(OUT,">>c" );
while(<EP>)
{
chomp();                      #用chop在windows下要出问题，最后一个合法字符被K
$name=$_;
$name=~s/\s+//g;
$name=~s/\./\\./g;      #避免把IP里面的.用于匹配任意字符
next if /^$/;                 #空行干掉
open(FP,"a");
        my @array = grep /$name\b/, <FP>;
        print OUT @array;
        print  @array;
                                close(FP);
}
close(EP);
close(OUT);