s/$RE{comment}{Perl}//;

##</code><code>##

#!/usr/bin/perl -w
use strict;
$_ = "blah # blah";
s#blah
 #boog#gx;
print;

##</code><code>##

use strict;
$_ = "blah s  print;