Regexp match all Visual Prolog