c:\@Work\Perl\monks>perl -wMstrict -le
"my $rx = qr{(?x: pattern)};
 print qq{perl version $]: $rx};
"
perl version 5.008009: (?-xism:(?x: pattern))

perl version 5.014004: (?^:(?x: pattern))