Em 27 de junho de 2011 13:48, Nelson Ferraz <nferraz em gmail.com> escreveu: > Caso você esteja procurando pela linha que contém "foo": > > perl -ne '$a=1 if /foo/; print if $a' nomedoarquivo.txt Em 30 caracteres (sem contar o nome do arquivo): perl -ne'$a||=/foo/ and print' <nomedoarquivo.txt>