This works fine for me.

#! perl
#
use strict;
use warnings;

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

Result

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

Hi Thank you for help Cheers Sufi