One way is to use split:

my @list;
for my $line (@inputs) {
  my @fields = split(/(PREFACE|ANALYSIS|...): /, $line);
  shift @fields;
  my $record = {};
  while (@fields) {
    my ($tag, $content) = splice(@fields, 0, 2);
    $record->{$tag} = $content;
  }
  push(@list, $record);
}
[download]