$ perl -MData::Dump -e '"ya"=~/(x)?/; dd $#-, \@-, $#+, \@+'
(0, [0], 1, [0, undef])