Select Code to Download

my @sorted = sort {

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

} @unsorted;

my @sorted = sort {

...
    $a[3] <=> $b[3]

} @unsorted;

my @sorted = sort {

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

} @unsorted;