my $EcoRI = qr/GATTCC/i;