use strict;
use warnings;

my @array;

while( read( DATA, my $buf, 1 ) != 0 ){
    push @array, $buf if $buf =~ /\d/;
}

print @array;	

__DATA__
a1b2c3d4