$ perl -E 'my $re = qr{(?x: PAT )}; say $re'
(?^u:(?x: PAT ))