8 my (@cls) = /\A(.*): (\d+)-(\d+) or (\d+)-(\d+)/;
9 print "$2:$3,$4:$5.\n";
10 push @ranges, [$2, $3], [$4, $5];
15 print "Your:", join("|", @your), "\n";
19 for (split /\n/, <>) {
22 # print "nearby:", join("|", @n), "\n";
27 if ($num >= $r->[0] && $num <= $r->[1]) {
31 print "$num is invalid\n";