# Compared m/$data->[1]{"re"}/ # got : (?-xism:(^|/)dir\/) # expect : (?-xism:(^|/)dir/)