cmpthese(0, {
              substr => sub {
                  my @l = @list;
                  substr $_, -2, 0, '.' for @l;
              },
              regex => sub {
                  my @l = @list;
                  s/(..)$/.$1/ for @l;
              },
              regex2 => sub {
                  my @l = @list;
                  s/(?=..)$/./ for @l;
              },
             });