#!/usr/bin/perl -w
use strict;
while(<>){
    next unless (/^{/);
    my @items = split(',', $_);
    my $output;
    foreach my $i (@items) {
        $i =~ s/^\s+//g;
        my ($first,$second) = split(':',$i);
        
        $first =~ s/{/{§/;
        $first =~ s/}/§}/;
        if ($first !~ /§/) {
            $first = "§$first§";
        }

        if ($first !~ /§$/) {
            $first = "$first§";
        }

        $second =~ s/{/{§/;
        $second =~ s/}/§}/;
        if ($second !~ /§/) {
            $second = "§$second§";
        }

        if ($second !~ /§$/) {
            $second = "$second§";
        }
        $output .= "$first:$second,";
    }
    $output =~ s/,^//g;
    print "$output";
}
