#! /bin/bash

perl -n -e '
    while (m/.*?([-.a-z0-9]{4,64}\.[a-z]{2,4})/gi) {
        $a{$1} or print $1."\n";
        # $a{$1}=1;
    }
    '