$plugins = { 

    do_transform => sub { 

          my $data = $_[1];    #grab all the data

          $data =~ s@<b>(.*?)</b>@ do { my $uc = uc($1); "<b>$uc</b>" }@e;
          $data =~ s@<d>(.*?)</d>@ do { my $uc = uc($1); "<d>$uc</d>" }@e;

          return $data;        
         }
   };