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