Select Code to Download

$_ = <DATA>;
my @titles = split;
...
      $titles[$i] .= ' '.$more[$i] if length($more[$i]);
   }
}

$_ = <DATA>;
my @titles = split;
...
   my @more = unpack(" ".$pat, $_);
   $titles[$_] .= $more[$_] for 0..$#titles;
}