Select Code to Download

use Benchmark;

push @lines, ((' ' x int rand 12) . (int rand 60000) . (' ' x int rand
+ 2)) for 1..10000;
...
    (/\b(?:$bad_ports)\b/o);
  }
}

Benchmark: timing 100 iterations of /o, qr...
        /o:  7 wallclock secs ( 6.88 usr +  0.00 sys =  6.88 CPU) @ 14
+.53/s (n=100)
        qr: 20 wallclock secs (18.84 usr +  0.00 sys = 18.84 CPU) @  5
+.31/s (n=100)