#! perl
#
use strict;
use warnings;

while(<DATA>){ print if /Norma/; } 
__DATA__ 
Steve Blenheim 
Betty Boop 
Igor Chevsky 
Norma Cord