$ perl -e 'print qr//;' (?-xism:)