if (  my @bits = 
   $filename =~ m[(^[^\d]+)-([\d\.-]+mdk)\.([^\.]+)\.(rpm$)]
) { 
    print $_, $/ for @bits; 
}