for my $file (<$base/$id-*-nobox.jpg>) { # TODO: --1--1.jpg, too.
my $fname = File::Basename::basename($file);
my ($width, $height) = $fname =~ /^$id-(\d+)-(\d+)-nobox\.jpg$/ or die $fname;
for my $file (<$base/$id-*-nobox.jpg>) { # TODO: --1--1.jpg, too.
my $fname = File::Basename::basename($file);
my ($width, $height) = $fname =~ /^$id-(\d+)-(\d+)-nobox\.jpg$/ or die $fname;