Gunnar Hjalmarsson wrote:
Can it possibly be that you need to make the first regex
non-greedy?
/\.{4}<B.*?ird>/s
--------------^
Or a more plausible explanation is that you are looping over the text
line by line. Maybe you simply need to do:
my $text = do { local $/; <> };
$text =~ s/[^\n]*\.{4}<B.*?ird>.*?\+=\+\n//gs;
print $text;
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
