Select Code to Download

sub xlat {
  my ($octets) = @_ ;
...
  $s =~ s/([01]{8})(?=[01])/$1/g ;
  ranges($s) ;
} ;

my $ports = '0x4000040000000200800000000000000000000002'
            .'0000000000c004000108008000000000000000000'
...
}

print join ',', @ports;

my $ports = '0x4000040000000200800000000000000000000002'
            .'0000000000c004000108008000000000000000000'
...
        unless((defined $start)||(defined $end)){print "$cur,";}}
}
}