#!/usr/bin/env perl

use strict;
use warnings;

my $itemID = 'something-12345.html';
my $url =  q|$itemID|;
$url =~ /(\d{4,5})\.htm/i;
print "Item ID: $itemID\n";
print "    URL: $url\n";
my $num = $1;
print "    NUM: $1\n";
exit;