in reply to Pattern Matching

You .+ is greedy. Use: 
@matches = $line =~ m{<B><P \s+ ALIGN=CENTER>
                      ([^<]*(?:<(?!/B></FONT>)[^<]*)*)
                      </B></FONT>}gx;

[download]

Replies are listed 'Best First'.
Re^2: Pattern Matching
by webchalkboard (Scribe) on Mar 09, 2005 at 15:17 UTC
[reply]

In Section Seekers of Perl Wisdom