#!/usr/bin/perl --

use strict;
use warnings;

use Regexp::Assemble;

use Regex::PreSuf;

my @AUBBC_TAGS = (
    'b',  'i',     'sub', 'sup', 'pre', 'ul',
    'ol', 'small', 'big', 'li',  'p',   'h1',
    'h2', 'h3',    'h4',  'h5',  'h6',  'div',
    'strong'
);

@AUBBC_TAGS = sort @AUBBC_TAGS;

my ($re) = Regexp::Assemble->new;

$re->add($_) for @AUBBC_TAGS;
$re = $re->re;
print "\n\n$re\n\n\n";
print presuf(@AUBBC_TAGS), "\n";

__END__

##</code><code>##

(?-xism:(?:s(?:trong|u[bp]|mall)|h[123456]|b(?:ig)?|p(?:re)?|[ou]l|div|l?i))

##</code><code>##

(?:big|div|h[123456]|li|ol|pre|s(?:mall|trong|u[bp])|ul|[bip])