% perl -ne 'print' filename % perl -ne 'print if /match/' filename % perl -pi -e 's/19100/2000/g' files % perldoc perlrun