use Regexp::Common;

##</code><code>##

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