Re: Printing ten characters succeeding a matching string

[hbm]

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;

[bluray]

Thanks hbm and roboticus for the suggestions.