Help for this page
buk2 => sub { local $_; 1+index $_[0], $_ or return while $_ = chop $_[1]; 1; },
c:\test>707621.pl Running benchmarks... ... tye0 917/s 128% 109% + 32% 2% 2% -- -39% -93% buk 1493/s 271% 240% +115% 67% 67% 63% -- -89% buk2 13013/s 3132% 2863% 1 +774% 1351% 1351% 1319% 771% --