sub stripper {
        my $type = shift;
        my $url  = shift;
        if ( $url =~
m/((?:(?:https?|ftp|irc):\/\/|(?:(?:(www)|(ftp))[\w-]*\.))?[-\w\/~\@:]+\.\S+[\w\/])/i
          )
        {
            $url = "$1";
        }
        else {
            &err($url);
        }
        $url =~ s/^https?:\/\/|mailto:|(.*)\@//ig
          ;    # get http(s)://, mailto:, and email@
        $url =~ s/\/.*//;          #Strip out the / and everything after it
        $url =~ s/[\?\#\:].*//;    # Get any GET vars
        my $fqdn = $url;
        
        my @domain = split( /\./, $url );

        # We have to do this backwards (com.domain.sub)
        my $tld    = pop(@domain);            #.com
        my $secld  = pop(@domain);            #.domain
        my @result = ( $secld, $tld );
        my $regdn  = join( "\.", @result );
        if ( $type eq "fqdn" ) { 
            return $fqdn;
        }
        else {
            return $regdn;
        }
}