my $string="001003051";
&verify($_) for(split /(\d{3})/, $string);