($base, $dash, $copy, $ext) = 
   $f =~ /^(\d+|\w+)(-)(\d+)(\.bmp)/;