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