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