@array = $line =~ m/<B><P ALIGN\=CENTER>(.+)<\/B><\/FONT>/g;