Help for this page

Select Code to Download


  1. or download this
     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>
    
  2. or download this
     
      DB<40> %h = ( '*'=>'b', '/' => 'i' , '_' => 'u' ) 
    
    ...
    
      DB<65> $wiki='_*one /two/*_ _*three /four/*_ _*five /six/*_'
    
  3. or download this
      DB<90> sub tf { s{ $pre ([_*/]) (.*?) \2 (?=$post)}{$1<$h{$2}>$3</$h
    +{$2}>}xg }