The name of the variable doesn't match the value it contains in
my $parts = tr/:/:/ - 2; # take 2 here instead of -1 later
and it doesn't give you anything. That was a step in the wrong direction.