foreach my $tool (@$tools)
{
    my $edit_tool =  $tool;
    $edit_tool    =~ s/<infile>/$file/ or next;
}