Select Code to Download

#!/usr/local/bin/perl
use strict;
use warnings;
...
    "Global" => sub { "Perl is cool" =~ m/Perl/g }
    }
);

                Rate     Global Non-global
Global     1351351/s         --        -9%
Non-global 1492537/s        10%         --

s/
    (                                           # Match and backrefere
+nce to either
...
        "I don't know $1 very well"             # or this when java is
+ found
    :"I do not wish to consider $1"             # or this when somethi
+ng else is found.
/ex;