Select Code to Download

 DB<66> $_=$wiki; tf();tf();tf() ; print "'$wiki' \n=>\n'$_'" 
'_*one /two/*_ _*three /four/*_ _*five /six/*_'
=>
'<u><b>one <i>two</i></b></u> <u><b>three /four/</b></u> <u><b>five <i
+>six</i></b></u>'
 DB<67>

 
  DB<40> %h = ( '*'=>'b', '/' => 'i' , '_' => 'u' ) 

...

  DB<65> $wiki='_*one /two/*_ _*three /four/*_ _*five /six/*_'

  DB<90> sub tf { s{ $pre ([_*/]) (.*?) \2 (?=$post)}{$1<$h{$2}>$3</$h
+{$2}>}xg }