Two approaches come to mind:

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

The second approach can also be implemented with sed:

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

Anchoring the regular expression using ^ may not be necessary depending on your situation.