% perl -le '$patt = q(a\Ubc); print qr/$patt/'
(?-xism:a\Ubc)