perlの\Gはpregではどう書くんですか?