Help for this page
substr => sub{ my $t2 = '20090123'; ... die if (length($t2)!= 8); die if ($t2 =~ /\D/); },
#!perl use v5.10; ... isook 324886/s 64% 8% 5% -- -2% -60% repeat 329924/s 67% 9% 7% 2% -- -60% substr 820345/s 314% 172% 165% 153% 149% --