除去文档中英文 数字 ？

open(In,"noun.txt");	
open(out,">noun_2.txt");
while(<In>){
	chomp;
	@arr=split(" ",$_);
	$m=$arr[0];
	$n=$arr[1];
	if($m=~/[u4e00-u9fa5A-Za-z]{2,}/){
	}
	else{ 
		$m=~/^[^a-z]/i;
		$m=~/^[\u4e00-\u9fa5]{4,N}$/;
		print out"$m $n\n";  
	}
 }
close(In);
close(out);