my @values;
my @delims;
for (split /(:|%|;)/) {
    if (@values == @delims) {
        push @values, $_;
    } else {
        push @delims, $_;
    }
}