use strict; use Socket qw( inet_aton inet_ntoa); local $, = $/; print map { inet_ntoa($_) } sort { $a cmp $b } map { chomp; inet_aton($_) } ; print $/; __DATA__ 128.1.1.0 127 23.4.5.6 255.255.255.255 45.27.128.0 localhost