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