Select Code to Download

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

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

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