sharifulin · November 10, 2009 17:50
diff --git a/Formating digital b/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;