Simple Perl code of formating digital

Formating digital

#!/usr/bin/perl
use common::sense;

sub D($) {
	for (scalar reverse shift) {
		s/(\d{3})(?=\d)/$1 /g;
		return scalar reverse;
	}
}

say D 12345;
say D 123456;
say D 1234.56;