#! perl
#
use strict;
use warnings;

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

##</code><code>##

perl "D:\perl_TK\DBperl\perl6data.pl"
Process started >>>
Norma Cord
<<< Process finished.