find(sub{
  if (/\.bak\z/ && -f) {
     unlink()
        or warn("Can't delete $File::Find::name: $!\n");
  }
}, $dir);