# from Regexp::Common::Comment:
sub to_eol  ($)  {"(?k:(?k:$_[0])(?k:[^\\n]*)(?k:\\n))"}  

# from Regexp::Common::ZIP 
Monaco => "(?k:980[0-9][0-9])",