$ perl -wE 'say "a" =~ /^(?(?=b)xxx)a/'

$ # no match