Help for this page

Select Code to Download


  1. or download this
    $foo = ':{"';
$foo =~ s/([:,{])(.)/$1 $2/g;
print "'$foo'\n";
  2. or download this
    1 while $foo =~ s/([:,{])([^ ])/$1 $2/g; # [^ ] is "not space"
  3. or download this
    1 while $foo =~ s/([:,{])([^ ]|$)/$1 $2/g;