$_ = <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;
}