my @tmp;
my %text_remove = map {$_=>1} @text_remove;
for (@xlate_data) {
  s/^(\[TEXT\-\d+\])//;
  $text_remove{$1} ? $tmp[-1] .= "$_" : push(@tmp,"$1$_");
}
@xlate_data = @tmp;