while ( /([[:alnum:]]+)(\@dh\.nl)/g ) {
    my ($name, $domain) = ($1, $2);
    print "$name$domain\n";
}