my @parts = $equation =~ /([^xyz]+(?=[xyz])|[xyz])/g;