#!/usr/bin/perl -w
use 5.010;
use strict;

my $string = '12 23 34 45 5464 46';

while ( $string =~ /(\d\d)\s/g ) {
    say $1;
}