#!/usr/bin/perl

# https://perlmonks.org/?node_id=1217011

use strict;
use warnings;

my $sample = "041424344454647484940414";

my @odds = $sample =~ /(\d)\d/g;
print @odds, "\n";