my $foo = ':{,"';
1 while $foo =~ s/([:,{])(?! )(.)/$1 $2/;
print ">$foo<\n";