use warnings;
use strict;
#use Data::Dumper; # Debug

while (my @pwent = getpwent) {
	#print Dumper(\@pwent); # Debug
	my ($name,$uid,$home) = @pwent[0,2,7];
	print "$name $uid $home\n"
		if $home !~ m{^/home/} || ! -d $home;
}