$file =~ s/(\n.*)//i