#!/usr/bin/perl -w use strict; my %h = {}; while () { chomp; my ($file, $line, $tilde) = split /:/; $tilde =~ s/\///; $file =~ s/\/home\//\/~/; $file =~ s/public_html\///; $h{$tilde}{$file}++; } print qq{Tilde.Club Connections

Tilde.club connections

}; print ""; for my $x (sort keys %h) { print "\n" }; print "

is linked by

"; for my $y (sort keys %{$h{$x}}) { my $user = $y; $user =~ m/(\~\w+)/; print "$1 "; } print "

"; print qq{};