Help for this page
$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;