# open file, don't do the local $/ trick
while (<FILE>) {
	next if /^\s*print/;
	next if /^\s*#/;
	push @lines, $_;
}