含虚词的词

use Encode;use utf8;open(a,"xuci1.txt");while($l1=<a>){chomp($l1);@arr=("$l1");$w1=$arr[0];# $W1=encode("gbk",$w1);$hash1{$w1}=1;}foreach $u1(keys %hash1){#$u2=encode("gbk",$u1);open(b,"1.txt");open(out,">xuci2.txt");while(<b>){@ar2=split(" ",$_);$m=$ar2[0];#$M=encode("gbk",$m);$n=$ar2[1];#$N=encode("gbk",$n);chomp;if($m=~/.*$u1.*/){print out"$m $n\n";}}close(b);close(out);}close(a);