$foo = ':{"' $foo =~ s/([:,{])(.)/$1 $2/g; print "'$foo'\n"; #### ': {"' #### ': { "'