Select Code to Download

#!/usr/bin/perl

...
    class       => code(' our $line =~ / a .{1,10}     [ ] /x;   '),
    class_nodot => code(' our $line =~ / a [^\n]{1,10} [ ] /smx; '),
};

>c:\progs\perl588\bin\perl 674979.pl
                Rate class_nodot       class     literal
...
class_nodot 618394/s          --        -12%        -13%
literal     704734/s         14%          --         -1%
class       708360/s         15%          1%          --