Select Code to Download

pl@nereida:~/Lperltesting$ cat ./comparequotedstrings.pl
#!/usr/local/lib/perl/5.10.1/bin//perl5.10.1
...
    failgpossessivenested  => sub { $input =~ /$regexp/g }
  }
);

$input = '"'.("abcdefghijk"x10000);

pl@nereida:~/Lperltesting$ ./comparequotedstrings.pl
                Rate gpossessive  gbacktrack
...
                        s/iter failgpossessivenested  failgbacktrackne
+sted
failgpossessivenested     23.1                    --                 -
+100%
failgbacktracknested  4.42e-02                52042%