verify($_) for $string =~ /\G(\d{3})/g;