$ perl -wMstrict -MData::Dump -e 'dd split /-|(x)/, "-", -1'
("", undef, "")