#!/usr/bin/perl
use 5.014;

#1004756

my @init_array = ("text text text 1 text",
                "1 text text text 2 text 3 ",
                "text 1 text text 2 text",
                "text text text 1 text 2 3.0",
                "1 2 3 4 5 6 7 8 9 10 11",
                "text text text text",
                );

my ($sub_select, $select, @selected);

for $_(@init_array) {
    $_ =~ s/(.+)\.0\z/$1/;      # Truncate trailing decimal numbers
    say "\t \$_: $_";           # debug

    ($select) = $_ =~ /
                .+?
                (?:(\d+))
                (?:[\D]*)
                $               # EOL
                /x;
    push @selected, $select;
}

my $i = 0;
for my $captured(@selected) {
    say "\t\t" . '#test_filtered' . "[$i]: " . '"' . $captured . '"';
    $i++;
}

=head EXECUTION:

C:\>perl 1004756.pl
         $_: text text text 1 text
         $_: 1 text text text 2 text 3
         $_: text 1 text text 2 text
         $_: text text text 1 text 2 3
         $_: 1 2 3 4 5 6 7 8 9 10 11
         $_: text text text text
                #test_filtered[0]: "1"
                #test_filtered[1]: "3"
                #test_filtered[2]: "2"
                #test_filtered[3]: "3"
                #test_filtered[4]: "11"
                #test_filtered[5]: ""

=cut