#!/usr/bin/perl
# vi:ts=4 sw=4 et:
use strict;
use warnings;

use Benchmark qw( cmpthese );

my $results = cmpthese(
    -3, {
        'r2/g' => sub {
            my $string = ( ' ' x 1000 ) . 'x' . ( ' ' . 1000 );
            $string =~ s/^\s+//g;
            $string =~ s/\s+$//g;
        },
        'r2' => sub {
            my $string = ( ' ' x 1000 ) . 'x' . ( ' ' . 1000 );
            $string =~ s/^\s+//;
            $string =~ s/\s+$//;
        },
        'r1' => sub {
            my $string = ( ' ' x 1000 ) . 'x' . ( ' ' . 1000 );
            $string =~ s/^\s+|\s+$//g;
        }
    }
);