syntaxdef perl {

# POD
/^(=(pod|head1|head2|item|over|back|cut|for|begin|end))\b/m : {
    context {
        /^(=(pod|head1|head2|item|over|back|cut|for|begin|end))\b/m : {
          region ${1} { type=commentmeta; }
        }
        /^=cut\s*$/m : exit;
    }
    region ${1} { type=commentmeta; }
    region ${ALL} {
        index=prose;
        type=comment;
        findlinks=true;
    }
}

}

