my ( $key, @data );
while ( <FH> ) {
    if ( /^([^:]+):/ ) {
        push @data, [ $_ ];
        }
    else {
        push @{ $data[ -1 ] }, $_;
        }
    }