【调试错误】正则表达式替换中使用变量

CODE:

164 sub fillup_table_new{
165     my ($table_file)=@_;
166     my $op_sur_ro="<";
167     my $op_sur_wo=">";
168     my $batch_name="";
169
170     open(TABLE, $op_sur_ro.$table_file) or die;
171     open(NEW, $op_sur_wo.$table_file.".out") or die;
172     while(<TABLE>){
173         if($_=~/^1\t/){
174             $batch_name=sprintf("%s",($_=~/^1\t([^\t][^\t]*)\t[^\t][^\t]*\t/));
175             print $batch_name."\n";
176             @t=&get_time($batch_name);
177             print $t[1]."\n";
178             print $t[2]."\n";
179             print $t[3]."\n";
180             $a=$t[1];
181             $b=$t[2];
182             $c=$t[3];
183             $_=~ s/(^1\t[^\t][^\t]*\t[^\t][^\t]*\t).*$/$1${a}\t${b}\t${c}/g;
184         }
185         print NEW $_;
186     }
187     close TABLE;
188     close NEW;
189 }