my ($key, %data);
for (<DATA>) {
    /^(?:(\d+):\s*)*(.+)$/;
    push @{ $data{ $key = $1 || $key } }, $2;
 
}