>perl -e"print qr/4d#sd/x"
(?x-ism:4d#sd
)