Select Code to Download

$url=~/(\d{4})\.htm/i;

$num = $1;

$url=~/(\d{4,})\.htm/i;

$url=~/(\d{4,5})\.htm/i;

#!/usr/bin/env perl

...
my $num = $+{num};
print "$num\n";
exit;