Select Code to Download

$url = q|$itemID|;

#!/usr/bin/env perl

...
my $num = $1;
print "    NUM: $1\n";
exit;

#!/usr/bin/env perl

...
my $num = $1;
print "    NUM: $1\n";
exit;

perl -MYAPE::Regex::Explain -E 'say YAPE::Regex::Explain->new("(\d{4})
++\.htm")->explain();'

The regular expression:

...
----------------------------------------------------------------------
)                        end of grouping
----------------------------------------------------------------------

perl -MYAPE::Regex::Explain -E 'say YAPE::Regex::Explain->new("(\d{4,5
+})\.htm")->explain();'

The regular expression:

...
----------------------------------------------------------------------
)                        end of grouping
----------------------------------------------------------------------