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

##</code><code>##

>perl -wMstrict -le
"my @source = qw(TEXT1 TEXT11 TEXT13 TEXT2 TEXT3);
 for my $val (@source) {
   $val =~ s/TEXT//;
   }
 print qq{@source};
"
1 11 13 2 3