Help for this page

Select Code to Download


  1. or download this
      DB<19> p $test
&,&#,&#3,&#38,&#38;&,&#,&#3,&#38,&#38;
  DB<20> p $test =~ s/(&#\d+;)|&#?\d*/$1/gr
,,,,&#38;,,,,&#38;
  2. or download this
      DB<22> p ',&38,' =~ s/(&#\d+;)|&#?\d*/$1/gr
,,