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