$fragment =~ s/\d+<\/foo>/'' . $i++ . '<\/foo>'/eg;