Select Code to Download

# No taint implications.
sub A { s/^\s*//; s/\s*$//; return $_; }
...
sub B { m/^\s*(.*\S)\s*$/;  return $1; }
sub C { m/(\S+.*\S*)/;      return $1; }
sub D { m/(\S?.*\S*)/;      return $1; }

    Rate    A    B    C    D
A 4709/s   -- -34% -39% -44%
B 7091/s  51%   --  -8% -16%
C 7680/s  63%   8%   --  -9%
D 8449/s  79%  19%  10%   --

use strict;
use warnings;
...
           D => sub { for (@data) { D( $_ ); }},
          });