my ($name, $val) = split /:\s*/; my @val = split /:/, $val;