Unrelated to your question, dots are literal on the right side of s///; no need to escape them:

#$outfile =~ s/\.txt/\.tag\.txt/gi;
 $outfile =~ s/\.txt/.tag.txt/gi;
[download]