/^[056]0+/

##</code><code>##

/^(?:0|5|6)0+/

##</code><code>##

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 },
};

##</code><code>##

Benchmark: running alt, charclass, each for at least 3 CPU seconds...
       alt:  3 wallclock secs ( 3.00 usr +  0.00 sys =  3.00 CPU) @ 505561.00/s (n=1516683)
 charclass:  3 wallclock secs ( 3.20 usr +  0.00 sys =  3.20 CPU) @ 534972.53/s (n=1713517)
              Rate       alt charclass
alt       505561/s        --       -5%
charclass 534973/s        6%        --