open F, "1.txt" or die $!;#把以上内容放到1.txt@array=;foreach(@array){if(/T(\d)\dC/ or /T(\d)\d+$/){s/$1/1/;} print "$_";}
