for i in *; do perl -c "$i" || echo rm -- "$i"; done