my @segments = map {
   /^(\d{1,3}\.\d{1,3}\.\d{1,3})/ ? $1 : ()
} keys %hashIPs;