Or

$_ = <DATA>;
my @titles = split;

my @lens = map length, /\S+\s*/g;
$lens[-1] = '*';
my $pat = join "", map "A".$_, @lens;

while (defined( $_ = <DATA> ) && /\S/) {
   my @more = unpack($pat, $_);
   for my $i (0..$#titles) {
      $titles[$i] .= ' '.$more[$i] if length($more[$i]);
   }
}
[download]

This can be reduced to the following:

$_ = <DATA>;
my @titles = split;

my @lens = map length, /\S+\s*/g;
$lens[-1] = '*';
my $pat = join "", map "A".$_, @lens;

while (defined( $_ = <DATA> ) && /\S/) {
   my @more = unpack(" ".$pat, $_);
   $titles[$_] .= $more[$_] for 0..$#titles;
}
[download]