(mmm-ify-by-regexp 'cperl-mode "<[\?]" 0 "[\?][\>]" 0 2)