if (/^1/) { print FILE, "$_\n"; }