while ( $string ~~ qr/(\d\d)\s/g ) {