in your perl subs module for this action
----------------------------------------

 $plugins = { 

     b => sub {

            my $data = uc($_[1]);

            "&lab;b&rab;$data&lab;/b&rab;" 
          },

     d => sub {

            my $data = uc($_[1]);

            "&lab;d&rab;$data&lab;/d&rab;"
          }

     };