>perl -le"print qr/.../s" (?s-xim:...)