Perl syntax highlighting: incorrect formatting for qw without a space before it

Forwarding https://bugzilla.gnome.org/show_bug.cgi?id=746596

This snippet of Perl has incorrect highlighting, the foo)) is white text on red background and everything between the two braces including the print statement is in yellow as if it were a string:

#!/usr/bin/perl
if (system(qw(echo bar q foo))) {
	print "foo bar\n";
}

But this snippet of Perl with a space before qw has the correct formatting.

#!/usr/bin/perl
if (system( qw(echo bar q foo))) {
	print "foo bar\n";
}

Apparently this issue was caused by an earlier fix for this bug:

https://bugzilla.gnome.org/show_bug.cgi?id=507075

I am using gedit 40.1-2 and gtksourceview 4.8.1-4 from Debian bookworm.

-- bye, pabs

https://bonedaddy.net/pabs3/