use warnings;
use strict;

die "need arg!\n" if ! @ARGV;

chomp (my $match = $ARGV[0]);

print "match: $match\n";

my ($prefix, $format, $ext) = $match =~ /([\w]+)(%[0-9]+d)\.([\w]+)/i
  or die "nope, can't dig up stuff\n";

print
    "prefix: $prefix\n" .
    "format: $format\n" .
    "ext: $ext\n\n";

my ($count) = $format =~ /%([0-9]+)d/
  or die "can't fetch format...\n";

print "count: $count\n";

##</code><code>##

match: Img%04d.png
prefix: Img
format: %04d
ext: png

count: 04