if ($DataRead{'StringRead'} =~ s/(\t|\n|\r|\e\[Z|\eq)\z//) {
    my $term = $1 ;
    ....
  } ;