Help for this page

Select Code to Download

Select or download this

c:\@Work\Perl\monks>perl -wMstrict -le
"for my $s (qw(/key/42  /key/  /24-99  /24-  /24  /key/42-99)) {
...
'/24-' -> no id
'/24' -> no id
'/key/42-99' -> no id