Select Code to Download

my @arr1;
foreach my $val (@arr) {
    $val =~ s/TEXT//gx;
    push @arr1, $val; 
}

>perl -wMstrict -le
"my @source = qw(TEXT1 TEXT11 TEXT13 TEXT2 TEXT3);
...
 print qq{@source};
"
1 11 13 2 3