find2perl /top/dir -name '*.gz' -eval 'size > 1000000 and unlink' | perl