The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
$main::hilite{case_php} = 0;
$main::hilite{rexp_php} = [
	'(\t)',					{ color => 0xffcccc,},
	'(#.*$)',				{ color => 0xaaaaaa,},
	'("(\\\\"|[^"])*")',	{ color => 0xff0088,},
	'(\/\/.*$)',			{ color => 0xaaaaaa,},
	'(\$(::)*\w+)',			{ color => 0x800000,},
	'(\@(::)*\w+)',			{ color => 0x800000,},
	'(\%(::)*\w+)',			{ color => 0x800000,},
	'(0x[0-9a-f]{6})',		{ color => 0x007777,},
	'(\d+)',				{ color => 0x0000ff,},
	'(\"[^\"]*\")',			{ color => 0xdd0000,},
	'(\'[^\']*\')',			{ color => 0xff4444,},
	'(qw\([^\(\)]*\))',		{ color => 0x00aa00,},
	'(q\([^\(\)]*\))',		{ color => 0x00aa00,},
	'(function)',			{ color => 0x0000aa,},
];