よし
後読みの言明を可変長でやろうとするとバージョンによっては警告出るケースがありno warningsでフタします。
----------
#!/usr/bin/env perl

use v5.26;
use utf8;
use warnings;
no warnings qw(experimental::vlb);
use strict;
use Encode::Locale;
use URI::Escape;

use feature "say";
use open IO => ":utf8";

binmode STDOUT, ":encoding(console_out)";
binmode STDERR, ":encoding(console_out)";

while(<DATA>) {
chomp;
say if /(?<!中|砂|三角)州/;
}

__DATA__
三角州
中州
九州
関八州
砂州
北九州市
南九州市
奥州市
甲州市