use warnings;
use strict;
use User::pwent;

while (my $pwent = getpwent) {
	print $pwent->name," ",$pwent->uid," ",$pwent->dir,"\n"
		if $pwent->dir !~ m{^/home/} || ! -d $pwent->dir;
}