local $_ = 'foo';                      
                                       
m/\Gfoo/gc && say 'Matched foo';       
m/\G.*\z/gc  && say 'Matched dot star and end of string';