print -p -e "$_ = reverse $_; $i ++; END { print qq'Total lines $i.' }" f1