@lines = split /\n/, $string;