perl -E"-z-f&&say for<*>"