#! /usr/bin/perl
use strict;
use warnings;
use 5.010;
use Data::Dumper;

my $string = "A1B2C3";

# liefert alle drei Zahlen (beachte Modifier /g)
my @liste = ( $string =~ m/(\d)/g );
say "@liste";

@liste = ( $string =~ m/(\d)/g )[0];
say "@liste";

@liste = ( $string =~ m/(\d)/g )[1,2];
say "@liste";