Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...

print  "length   : ", length($doc), "\n";  # 708837376
  2. or download this
    $doc =~ s/(?:\[|\]|\')//g   -->  $doc =~ s/[\[\]\']//g
$doc =~ s/(?:\[|\]|\')+//g  -->  $doc =~ s/[\[\]\']+//g