@q = split(//,$p);