substr($x, 4, 0, "."); # method 1
$x =~ s/\A(....)/$1./; # method 2

##</code><code>##

sed -e 's/^(....)/\1./'