sub ripper2b { ## Second implementation, take b
  my $file = $_;
  return unless s/\.(?!$ext)\w+$//i;
  my $priority = "$_.$ext";
  if (-e $priority && !-d $priority) {
    $nom += unlink $file;
  }
}