Help for this page

Select Code to Download


  1. or download this
    foreach (@AUBBC_TAGS) { $message =~ s{\[(.?)?$_\]}{<$1$_>}xg; }
    
  2. or download this
    $message =~ s{\[(.?)$_\]}{<$1$_>}g foreach @AUBBC_TAGS;