>>691
my @data = (元データ);
my ($append_to, $i);
for (@data) {
  if (/^ひづけ/) {
    $append_to = $i;
  }
  else {
    $data[$append_to] .= $_;
    undef $_;
  }
  $i++;
}
@data = grep defined, @data;
# てきとう

>>694
とりあえずStrawberryPerlでも試してみたら