>>114
なるほど。。
eval(sprintf("\$line =~ s/%s/%s/o",$src, $dest));