RH
Size: a a a
RH
SZ
RH
SZ
RH
RH
SZ
RH
RH
SZ
SZ
(my $a = 13) =~ s/\d+/666/; print $a
RH
SZ
SZ
use Benchmark "cmpthese";
$a = " " x 16 . "asd" x 128 . " " x 18;
cmpthese -2 => {
two => sub { $_ = $a; s/\s*$//; s/^\s*// },
one => sub { $_ = $a; s/(:?^\s*|\s*$)// },
}
P
SZ
RH
SZ
YK