my @lines = split /\r?\n/, $text;