Select Code to Download

    $combine = join('',@ret);

    $combine = pack("a*" x ($#ret + 1), @ret);

foreach my $item (@ret)
  {
...
    print "Pack     ...".substr($`,-5)." ||".$1.
                   "|| ".substr($',0,5)."\n";
  }