Regular Expression Perl

Format: s/search pattern/replacement string/i;
# Matching with the i option
while(){
    print if /norma/i;     # Turn off case sensitivity
}
__DATA__
    Steve
    Jack
    Tom
    Norma
    James
    Jason