use Benchmark 'cmpthese';
my @list = ( '00012345', 'D123470', '0000123450', '0000023456', '50000123990' );
cmpthese -3, {
   charclass => sub { grep /^[056]0+/, @list },
   alt => sub { grep /^(?:0|5|6)0+/, @list },
};