#!/usr/bin/perl

use strict;
use warnings;

use Benchmark qw( cmpthese );

our $line = ('a' x 500) . ' ' . ('a' x 20);

sub code { "use strict; use warnings; $_[0]; 1;" }

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