Caso você esteja procurando pela linha que contém "foo":
perl -ne '$a=1 if /foo/; print if $a' nomedoarquivo.txt =begin disclaimer Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ SaoPaulo-pm mailing list: [email protected] L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> =end disclaimer
