Daniel McClory schreef:
> while(<INPUT>)
> {
> $_ =~ s/\[*\]//;
> $_ =~ s/\(*\)//;
> print $_;
> }
while ( <INPUT> ) {
s/\[.*?\]//;
s/\(.*?\)//;
print;
}
--
Affijn, Ruud
"Gewoon is een tijger."
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
