Syntax highlight the Perl for readability.