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