my ($length, @elements) = dismantle($s);