my $reg1 = qr/=/i;