my $numps = ($homes =~ tr{|}{});