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