sub guttman_rosler_uk {
    my @host;
    print STDERR +( $_ , "\n\n") foreach
        map { substr( $_ , 1+index($_ , $;) ) }
        sort
        map {
            m[(?:(^[^:]+)://)?([^/]+)(.*$)];
            @host = (reverse( split '\.' , $2), $3, $1);

            lc( join'_', @host[1,0, 2..$#host] ) 
            . $; . $_ ;
        } keys %hist;
    return;
}