perl -i ./access_log -e 'while (<>) { #stuff# }'