This works fine for me.
#! perl # use strict; use warnings; while(<DATA>){ print if /Norma/; } __DATA__ Steve Blenheim Betty Boop Igor Chevsky Norma Cord
Result
perl "D:\perl_TK\DBperl\perl6data.pl" Process started >>> Norma Cord <<< Process finished.
In reply to Re^2: <DATA> file handle not working with Perl Starwbery 5.12.1
by Generoso
in thread <DATA> file handle not working with Perl Starwbery 5.12.1
by sufi
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |