You assumed right ^^. looks good and I will be playing with it.
the function I'm using wont be costly and the hash key will be used in the final version. I wanted to keep it as simple as possible in my examples.

My final code would look something like this.

    # Hash format: $Build_AUBBC{$name} = $pattern . '||' . $type . '||
+' . $fn;
    foreach my $b_key (keys %Build_AUBBC) {
             warn "ENTER foreach do_build_tag $self" if $DEBUG_AUBBC;
             my ($pattern, $type, $fn) = split (/\|\|/, $Build_AUBBC{$
+b_key});

             $message =~ s/(\[$b_key\:\/\/([$pattern]+)\])/
              my $ret = check_build_tag( $2 , $fn ) || '';
              $ret ? $ret : $1;
              /exig if ($type eq 1);

             $message =~ s/(\[$b_key\]([$pattern]+)\[\/$b_key\])/
              my $ret = check_build_tag( $2 , $fn ) || '';
              $ret ? $ret : $1;
              /exig if ($type eq 2);
     }
[download]

Thanks ^^