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

##</code><code>##

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