$ perl -wle'use re "debug"; $x = "foo\nbar"; qr/(?x)hullo (?#there $x)/'
Compiling REx `(?x)hullo (?#there $x)'
size 4 Got 36 bytes for offset annotations.
first at 1
   1: EXACT <hullo>(4)
   4: END(0)
anchored `hullo' at 0 (checking anchored isall) minlen 5 
Offsets: [4]
        5[6] 0[0] 0[0] 23[0] 
Name "main::x" used only once: possible typo at -e line 1.
Freeing REx: `"(?x)hullo (?#there $x)"'