box:~> perl -le 'print "yes" if shift =~ "a\x23b";' aaa#bcd
yes