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