🚀 go-pugleaf

In GNU Emacs 19.25.1 of Thu Jun  2 1994 on ober.cs.columbia.edu (sparc-sun-solaris2)

Here is a snippet of legal perl-4 code (from the mirror.pl package) which
fails to fontify using the default regexps:

#!/usr/local/gnu/bin/perl
# Some systems hold the username in $USER, some in $LOGNAME.
$me = $ENV{'USER'} || $ENV{'LOGNAME'};
# Files matching this pattern are usually compressed.
$squished = '\.(Z|z|gz)$';
# special /bin/sh chars that must be escaped.
$shell_metachars = '\"|\$|`|\\\\';
# Remote directory parsing fail if not given input every readtime seconds.
$parse_time = 600;

The quted assigned value to $squished confuses the rules, and the rest of
the perl code all the way to the end of the file gets assigned to the same
face as strings.  Essentially the "$" at the end of the perl (to be used as
a) regexp for $squished gets it into trouble.