use strict;
use warnings;

use Benchmark qw( cmpthese );

my %tests = (
   ikegami11 => 's/^(.{256,}?)\s+\z/$1/s, s/^\s*(.{256}).*\z/$1/s                if length > 256;',
   ikegami21 => 's/(?<=.{6})\s+\z//s,     s/^\s*(.{256}).*\z/$1/s                if length > 256;',
   ikegami31 => 's/.{6}\K\s+\z//s,        s/^\s*(.{256}).*\z/$1/s                if length > 256;',
   ikegami12 => 's/^(.{256,}?)\s+\z/$1/s, s/^\s+(?=.{6})//s, s/(?<=^.{6}).*\z//s if length > 256;',
   ikegami22 => 's/(?<=.{6})\s+\z//s,     s/^\s+(?=.{6})//s, s/(?<=^.{6}).*\z//s if length > 256;',
   ikegami32 => 's/.{6}\K\s+\z//s,        s/^\s+(?=.{6})//s, s/(?<=^.{6}).*\z//s if length > 256;',
   ikegami13 => 's/^(.{256,}?)\s+\z/$1/s, s/^\s+(?=.{6})//s, s/(?<=.{6}).*\z//s  if length > 256;',
   ikegami23 => 's/(?<=.{6})\s+\z//s,     s/^\s+(?=.{6})//s, s/(?<=.{6}).*\z//s  if length > 256;',
   ikegami33 => 's/.{6}\K\s+\z//s,        s/^\s+(?=.{6})//s, s/(?<=.{6}).*\z//s  if length > 256;',
   ikegami14 => 's/^(.{256,}?)\s+\z/$1/s, s/^\s+(?=.{6})//s, s/^.{6}\K.*\z//s    if length > 256;',
   ikegami24 => 's/(?<=.{6})\s+\z//s,     s/^\s+(?=.{6})//s, s/^.{6}\K.*\z//s    if length > 256;',
   ikegami34 => 's/.{6}\K\s+\z//s,        s/^\s+(?=.{6})//s, s/^.{6}\K.*\z//s    if length > 256;',
   merlyn    => 's/\s$// || s/^\s// || s/.$// while length > 256;',
);

$_ = 'use strict; use warnings; local $_ = our $pat;' . $_
   for values(%tests);

for my $len (256, 260, 300, 500) {
   for our $pat (
      ' ' x $len,
      (' ' x ($len/2)) . ('x' x ($len/2)),
      'x' x $len,
   ) {
      printf("length=%u, pat=\"%s...%s\"\n", $len, substr($pat, 0, 5), substr($pat, -5));
      cmpthese(-1, \%tests);
      print("\n");
   }
}