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