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