my @fred = (1, 2, 3, 4, 5);
my $lastSub = $#fred;
print qq{$lastSub\n};

##</code><code>##

my @fred = (1, 2, 3, 4, 5);
my $lastSub = $
print qq{$lastSub\n};

##</code><code>##

s{(?<!\$)#.*$}{};

##</code><code>##

-background => #101010,

##</code><code>##

s{(?<!\$)#(?![0-9a-fA-F]{6}).*$}{};