reverse_line_order() { perl -e 'print reverse <>'; }

count_lines() { perl -lne 'END { print $. }'; }