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

##</code><code>##

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