likhatskiy/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;
	#!/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;