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