Help for this page

Select Code to Download


  1. or download this
    
my               $content1=''&#22 x';
...
my               $content2=''&#22 x';
                 $content2=~s/\&(\#\d*[^;]+)/\&$1/gs; 
print '2:'.$content2."\n";
  2. or download this
    1:'&#22 x
2:'&#22 x
  3. or download this
    This is perl 5, version 20, subversion 1 (v5.20.1) built for MSWin32-x
+86-multi-thread-64int
(with 1 registered patch, see perl -V for more detail)

...

Binary build 2000 [298557] provided by ActiveState http://www.ActiveSt
+ate.com
Built Oct 15 2014 22:10:49