Select Code to Download

  my $message = join '', map cleanline($_), <DATA>;
  ...
...
      return "$line\n<br>\n";
    }
  }

   if ($biglist =~ m%$bq%ig )        # 
      {
       $biglist =~ s%$bq% %ig;         # replace with space, case inse
+nsitive, g
lobal
      }

  $biglist =~ s%$bq% %ig;

<pre>
blah blah blah blah blah
...

Vishwam Annam wrote:
</pre>

  our $re_bq;
  $re_bq = qr{
...
  }xsi;
  ...
  $message =~ s{$re_bq\s*\z}{};