Алексей Лихацкий likhatskiy

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

sub D($) {
	for (scalar reverse shift) {
		s/(\d{3})(?=\d)/$1 /g;
		return scalar reverse;
	}
}
	#!/usr/bin/perl
	use common::sense;

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