Using a binary shift left ("<<") followed by a left parenthesis causes Perl syntax highlighting to fail.

David Stults fa 9 anys updated by Fredrik Ehnbom fa 9 anys 1

$x = 1 << (32 - $y);

Everything after the ; will be colored yellow, no more syntax highlighting.
Sounds like it might be this bug: https://github.com/textmate/perl.tmbundle/issues/3