print substr "$x,$y", 1, -1;