%Image::ExifTool::UserDefined = ( 'Image::ExifTool::Composite' => { FirstFile => { Require => { 0 => 'BaseName', 1 => 'SequenceLength', 2 => 'SequenceNumber', }, ValueConv => q{ return undef unless $val[1] > 1 and $val[0] =~ /(\d+)/; my $num = sprintf('%.*d', length($1), $1 - $val[2] + 1); $val[0] =~ s/(\d+)/$num/; return $val[0]; }, }, }, ); %Image::ExifTool::UserDefined::Options = ( RequestTags => 'BaseName', ); 1; #end