Help for this page
if( /^(\S+)$/) {print OFILE"$1\n\n"}
# this may help while (my $line = <FILE>) { ... } close FILE; close OFILE;