for my $ret ( $dom->find('div.ret')->each ){
    for my $aaaa ( $ret->find('a')->each ){
        my $date = $aaaa->find('div.date')->first->all_text;
        my $lieu = $aaaa->find('div.lieu')->first->all_text;
        my $cat  = $aaaa->find('div.cat')->first->all_text;
        my $titl = $aaaa->find('h2.title')->first->all_text;
        print join( "\t#\t", $date, $lieu, $cat, $titl), "\n";
    }
}
__END__
22 mai 19:52	#	Dourdan	#	Blue	#	Text 1 Title
22 mai 11:55	#	Champigny-sur-Marne	#	Blue	#	Text 2 title