#!/usr/bin/perl


my $file = $ARGV[0];

open my $fh, $file;
my $text;
foreach my $line (readline $fh) {
        $text .= $line;
}

foreach my $match ( $text =~ /(<P ALIGN=LEFT STYLE="background: #b3b3b3; font-style: normal"><B>.*?<P ALIGN=LEFT><SPAN STYLE="font-style: normal">)/gsm) {
   my $temp = $match;

   $match =~ s/<P ALIGN=LEFT STYLE="background: #b3b3b3; font-style: normal"><B>/<pre>/;
   $match =~ s/<P ALIGN=LEFT STYLE="background: #b3b3b3; font-style: normal"><B>//g;

   $match =~ s/<P ALIGN=LEFT><SPAN STYLE="font-style: normal">/<\/pre>/;
   $match =~ s/<\/B>//g;

   $text =~ s/$temp/$match/gsm;
}

print $text;