#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my $d = '<font face="arial"><b>yahoo.de</b> has address <b>217.12.6.29</b><br><small>Found 332 websites with the IP <b>217.12.6.29</b></small></font><br><br><font face="arial" size="-1">1) 10millionenspiel.yahoo.de<br>
2) 360.yahoo.de<br>
3) 50erstedates.yahoo.de<br>
4) acrylic-furniture.info.yahoo.de<br>
5) adresse.yahoo.dk<br>
6) adsl.yahoo.it<br>
7) advent.yahoo.de<br>
8) agenda.yahoo.it<br>
9) ahdod.yahoo.co.uk<br>
10) ahmed.yahoo.fr<br>
11) aide.yahoo.fr<br>
12) angelaenea.yahoo.it<br>
13) angellovespells.com.yahoo.it<br>
14) annunci.yahoo.it<br>
15) answers.yahoo.it<br>
16) antispam.yahoo.it<br>
17) at.yahoo.com<br>
18) auctions.yahoo.fr<br>
19) auktionen.yahoo.de<br>
20) av.yahoo.co.uk<br>
21) av.yahoo.de<br>
22) av.yahoo.fr<br>
</font>    </td></tr></table>';

my @a = map {/\d+\)\s*(.+)\s*<br>/g} $d;

print Dumper \@a;