Patty Silva wrote: > Ola Nelson!1 > > Tentei usar o delimitador so que nao funcionou: > olha o codigo > > while (<FILE>) > { > local $/ = '\s - TE\n'; > print $_; > > } Este é um típico caso de RTFM: "Remember: the value of $/ is a string, not a regex. awk has to be better for something. :-)" http://perldoc.perl.org/perlvar.html []s Nelson