#!/usr/bin/perl

use strict;
use warnings;

use Mojo::DOM;
use 5.010;

local $/ = undef;
my $dom = Mojo::DOM->new(<DATA>);

my @details = $dom->find("div[id=test]")->each(
    sub {
        if ( $_->text =~ /Alter:/ ) {
            my ($alter) = $_->text =~ m/(\d+)\s*Jahre/;
            say $alter;
        }
    }
);

1;

__DATA__
<div id="test">
Alter: 21 Jahre<br>
Haarfarbe: blond<br>
Figur: normal<br>
Augenfarbe: grün<br>
.....
</div>
<div id="test">Alter: 22 Jahre<br>Haarfarbe: rot<br>Figur: dürr<br>Augenfarbe:gelb<br>.....</div>
<div id="test">

Alter:32Jahre<br>
    Haarfarbe: grün<br>

    
    Figur: lang<br>
                                            Augenfarbe: lila-blass-blau<br>
.....
</div>