$ perl -le " print int q{shoes} =~ /SHOES/ "
0

$ perl -le " print int q{shoes} =~ /SHOES/i "
1

$ perl -le " print int q{shoes} =~ /(?i)SHOES/ "
1