open (NEWFILE,">newfile") or die print "yikes: $!; open (FILE,"<myfile") or die print "yikes: my file $!\n"; while (<FILE>) { if ($_ =~ /\w/) { print NEWFILE; } close FILE; close NEWFILE;