The trick is to split the numbers already when capturing:

$line =~ s/(\d\d)(\d\d)/$1 $2/g;
[download]

Update: Note that /d and \d are different.