Help for this page

Select Code to Download


  1. or download this
    my @AUBBC_TAGS = ('b','i','sub','sup','pre','ul','ol','small','big','l
+i','p','h1','h2','h3','h4','h5','h6','div','strong');

my $message = '[b] stuff [i] stuff [/i] [/b]';
foreach (@AUBBC_TAGS) { $message =~ s{\[(.?)?$_\]}{<$1$_>}xg; }
print $message;
  2. or download this
    my $message = '[b] stuff [i] stuff [/i] [/b]';
$message =~ s{\[(.?)?([\w]+)\]}{<$1$2>}xgo;
print $message;