" Mason detection
au BufRead,BufNewFile *
\ if search('^\s*<%\(args\|once\|init\|perl\|shared\|attr\)>\s*$','n')
\| set filetype=mason
\| endif
A piggy bank of commands, fixes, succinct reviews, some mini articles and technical opinions from a (mostly) Perl developer.