$number =~ s#(.{4})#$1 #g;

##</code><code>##

$number =~ s#(\d{4})(?=\d)#$1 #g;

##</code><code>##

$number = "@{[unpack '(A4)*', $number]}";