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