do { use re qw(Debug More); $re1=qr/g/; }