$lines =~ s{$/$/}{$/}gs;