my %row = m/\s*(\w+)\S*\s+(\S.*)/g;

##</code><code>##

$_ = <<DATA;
    Detail:              Some really nice infos these are 
    Info:              This is a problem
                       but there is a solution
DATA
my %row = m/\s*(\w+):\s+(\S[^:]+)/gs;

##</code><code>##

$_ = <<DATA;
    Detail:              Some really nice infos these are 
    Info:              This is a problem
                       but there is a solution
DATA
my %row;

my $curr;
for (split /\n/) {
    if( /^\s*(\w+):\s+(.*)/ ) {
        $curr = $1;
        $row{ $curr } = $2;
    } elsif( $curr and /^\s*(.*)/ ) {
        $row{ $curr } .= ' ' . $1;
    } else {
        die "Unknown input data [$_]";
    };
};