use String::Escape qw( elide $Elipses );
  local $Elipses;
  print elide( $mystring, 50 );