Select Code to Download

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

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