These numbers look too good to be true:

$_ = "9876543";
s/(?=..)$/./;
say;
__END__
9876543
[download]

You cannot actual replace a zero-width assertion.

And before benchmarking, you should always check whether you're producing the correct results. Bogus solutions noone cares for, even if they're fast.