my @sorted = sort {

	pack('C4' => $a =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/)
	cmp
	pack('C4' => $b =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/)

} @unsorted;