my $string="001003051";
@values=($string=~m/(\G\d{3})+/g);
foreach $value (@values) {
	&verify($value);
}