>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