$re = qr/<!--.*?-->/s;
print $re;

##</code><code>##

  (?s-xim:<!--.*?-->)