Select Code to Download

my @ranges = ('2..5,10..15', '2..5', 'die', '-2..5,10..15');
my $match = qr /^\d+\.{2}\d+(,\d+\.{2}\d+)*/;

print ((m|$match| ? "ok:       " : "Rejected: ") . "$_\n") for (@range
+s);