less access_log > perl -e 'while (<STDIN>) { #stuff# }'