>>737
use strict;

my @journal;
my $entry;
while(<DATA>) {
chomp;
if(/^\d/) {
$entry = {date => $_, accidents => []};
push @journal, $entry;
} elsif(/^　/) {
push @{$entry->{accidents}}, $' if $entry and $';
}
}