my $re = qr/(?i:Egal)/;

if( "GrossKleinegaL" =~ /$re/ ) {
    print "egal\n";
}