package VIR; our $vir = qr/My\s+[Rr]egex/; 1;