Regular Expression Perl

while(){
     print "Found Norma!\n" if /N..ma/;
}
__DATA__
    Tom 101
    Mary 201
    Jason 301
    Norma 401
    Jack 501
    Kate 601