foreach(glob('*.*')) { unlink if (-f $_) && !-s _; }