my ($ports) = $args =~ m/-p\s+([-\d]+)/;