Help for this page
Select Code to Download
Select
or
download this
$ perl -wMstrict -MData::Dump -e 'dd split /-|(x)/, "-", -1' ("", undef, "")