my $s = "abc12341xyz";
my @pairs = grep /\d\d/, map { substr $s, $_, 2 } (0..length($s)-2);
print join " ", @pairs;

12 23 34 41