#!/usr/bin/perl

use strict;
use warnings;

my %globize = ('=' => '={',  ':' => '}:{',  '' => '}');
#my %globize = ('?What here?' => '{',  ':' => '}:{', '' => '}');
my (@globs, %hash);
while (<DATA>)
{
        my ($globule, $value) = split / /;
        chomp $value;
        $globule =~ s{ ([=:] | \z) }{$globize{$1}}xmsg;
        #$globule =~ s{ (\A | : | \z) }{$globize{$1}}xmsg;
        print qq{'$globule'}."\n";
        @globs = glob $globule;
        $hash{$_} = $value for @globs;
}
use Data::Dump; dd \%hash;

__DATA__
Prefix1:A,B:c,d value1=10
Prefix2:A:b,c:1,2 value2=20
Prefix3:A:*:1,2 value3=30
Prefix4:A:*:1,2 value4a=10|value4b=20
Prefix5,Prefix6:A:*:1,7 value5=10