下記の入力ファイルを読んで、$dateと@accidentのリファレンスを格納
した@journalの配列を作製したいのですが表現が分かりません。宜し
く、お願いします。
070901
　1030 高速道路での４重衝突。４人死亡
　1100 山で遭難。２名救助
　
070912
　0200 飲酒運転で、現行犯逮捕
　
　下記のソースは、データ作製の処理が未完成です。
open(IN,'01.txt');
my @journal=();
while(<IN>){
　chomp;
　if(/^\d/){
　　#日付の処理
　　my $date=$_;
　　my @accident=();
　}elsif(/^　/){
　　#明細の処理
　　s/^　//;push(@accident,$_);
　}elsif(/^$/){
　　#データ作製

　}else{
　　print "形式誤り\n";
　}
}
close(IN);