I have found a solution on how to fix the kernel naming scheme,
foreach my $file (@filelist) {
if ($file =~ /kernel/) {
$regex = '^'.$dir.'\/(.*?)-(\d.*)(\.\w+\.rpm)';
} else {
$regex = '^'.$dir.'\/(.*\/?)-(.*-.*)(\..*\.rpm$)';
}works great for me. no more having deleted kernels. JorgP
