in reply to Passing digits in perl

$inp =~ s/\d{4}\K\B/ /g;  # hehehe

[download]

In Section Seekers of Perl Wisdom