$tool =~ s/<infile>/$file/;

##</code><code>##

$tool =~ s/<infile>/$file/g;