|There's more than one way to do things|
Re^2: Perl always reads in 4K chunks and writes in 1K chunks... Loads of IO!by ChOas (Curate)
|on Jan 01, 2006 at 16:48 UTC||Need Help??|
open DF, "test.txt" || die "Can't read 'test.txt': $!\n"
Does not do what you think it does.
The || ties itself to "test.txt", which is always true, and not to the return of the open.
open(DF, "test.txt") || die "Can't read 'test.txt': $!\n"
open DF, "test.txt" or die "Can't read 'test.txt': $!\n"
(or binds less tight than ||)
Would accomplish what you want.
print "profeth still\n" if /bird|devil/;