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