<mime-type type="text/x-pascal">
    <_comment>Pascal source code</_comment>
    <glob pattern="*.p"/>
    <glob pattern="*.pp"/>
    <glob pattern="*.pas"/>
    <glob pattern="*.PAS"/>
    <glob pattern="*.dpr"/>
    <sub-class-of type="text/plain"/>
  </mime-type>

  <mime-type type="text/x-perl">
    <_comment>Perl script</_comment>
    <magic priority="50">