$e[4] =~ s/\n\r//g;
   $e[4] =~ s/\n//g;
   $e[4] =~ s/\r//g;