Space between digits

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Space between digits by tobyink (Canon) on Nov 21, 2012 at 21:23 UTC
`use 5.014; my $string = "0:00 11/21/2012"; my $new = $string =~ s/ / /r; say $string; say $new;` [download] `perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'`	[reply] [d/l]
Re^2: Space between digits by Anonymous Monk on Nov 21, 2012 at 21:28 UTC
I meant for that pattern and of date and time. I didnt mean that particular string. for example for the pattern `(\d+)\:(\d+) (\d+)\/(\d+)\/(\d+)` [download] how do I triple the space between the time and date ?	[reply] [d/l]
Re^3: Space between digits by tobyink (Canon) on Nov 21, 2012 at 21:31 UTC
The code I posted will work on any string. It finds the first space and replaces it with three spaces. `perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'`	[reply]
Re^4: Space between digits by Anonymous Monk on Nov 21, 2012 at 21:48 UTC
Re^5: Space between digits by muba (Priest) on Nov 22, 2012 at 01:35 UTC
Some notes below your chosen depth have not been shown here
Re^5: Space between digits by tobyink (Canon) on Nov 23, 2012 at 16:06 UTC
Re: Space between digits by bart (Canon) on Nov 23, 2012 at 12:29 UTC
This might help: `s/(?<=\d) (?=\d)/ /` [download] It replaces a single space with 3 provided there's a digit (at least one) in front of it, and one (at least one) behind it.	[reply] [d/l]
Re^2: Space between digits by Anonymous Monk on Nov 23, 2012 at 16:04 UTC
Yes yes that was good one Bart. I tried that and it worked...thank you very much.	[reply]