@q = split(/(.*?)/, $p);