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