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