- or download this
#!/usr/bin/perl --
use strict;
...
print presuf(@AUBBC_TAGS), "\n";
__END__
- or download this
(?-xism:(?:s(?:trong|u[bp]|mall)|h[123456]|b(?:ig)?|p(?:re)?|[ou]l|div
+|l?i))
- or download this
(?:big|div|h[123456]|li|ol|pre|s(?:mall|trong|u[bp])|ul|[bip])