foreach my $item (@ret)
  {
    if($item =~ /([\x7f-\xff])/)
      {
        print "Array     ...".substr($`,-5)." ||".$1.
                  "|| ".substr($',0,5)."\n";
      }
   }

my $via_join = join('',@ret);
if($via_join =~ /([\x7f-\xff])/)
  {
    print "Join     ...".substr($`,-5)." ||".$1.
                  "|| ".substr($',0,5)."\n";
  }

my $via_pack = pack("a*" x ($#ret+1),@ret);
if($via_pack =~ /([\x7f-\xff])/)
  {
    print "Pack     ...".substr($`,-5)." ||".$1.
                   "|| ".substr($',0,5)."\n";
  }