perl问题：把文本变哈希

[superyxo]

初学perl，请大家帮忙看看

我有一个file.txt文档内容如下：

BEGIN: 1

bla bla bla

bla bla bla bla

BEGIN: 2

bla bla

bla...

BEGIN: 3

bla bla

bla bla la lalala...

.....

如上，这个文档包括几个部分，每部分以“BEGIN: 数字”开头。我想要做的是：

读入这个文本，把这个文本变成一个hash，以每个“BEGIN：数字” 作为key，后边跟着的整段内容做value，类似这样：
{
“BEGIN: 1” => "bla bla bla
bla bla bla bla",
"BEGIN: 2" => "bla bla
bla...",
...
}

这个该怎么做？多谢！

[xuboying]

my %HASH;
my $KEY;
while(<IN>){
if (/(BEGIN\: \d+)/){
    $KEY= $1;
    next
}
%HASH{$KEY}.=$_;
}