$DataRead{'StringRead'} = substr($DataRead{'StringRead'}, -3);

##</code><code>##

  substr($DataRead{'StringRead'}, -3) = '' ;

##</code><code>##

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