Remove some, not all \n from a text block

[Alan C.]

Hello,

It's now a previously formatted text block with line breaks at every 70 characters width.

And the block's first line begins with a leading period or dot as well as approximately every third line thereafter begins with a leading period or dot.

How do I rid the block of line breaks on every line except for the lines that begin with the leading period or dot?

I want to end up with a fewer number of lines whereby each of them is both longer and is preceded by the period or dot (sample output below).
--

#!/perl/bin/perl -w
undef $/; # Enter "file slurp" mode.
$text = <>; # This file/selection slurped into the scalar
for ($text =~ s/\n\.//g) {
print $text;
}

I tried the above removes each \nPERIOD combo, not quite yet what I want.

I'm aware that split is an array but I don't yet know how to use split. And I'm not sure if split is what is needed.

How to, using regex, split, or otherwise?
--

--begin test sample text block--
.WEDNESDAY...CLOUDY IN THE MORNING THEN BECOMING PARTLY CLOUDY.
AREAS OF DENSE FOG IN THE MORNING. HIGHS 56 TO 61. LIGHT WINDS.
.WEDNESDAY NIGHT...MOSTLY CLOUDY. PATCHY FOG OVERNIGHT. LOWS 41 TO
48. LIGHT WINDS.
.THURSDAY...MOSTLY CLOUDY. SLIGHT CHANCE OF SHOWERS IN THE
AFTERNOON. HIGHS 52 TO 57. SOUTHEAST WINDS 10 TO 15 MPH.
.THURSDAY NIGHT...MOSTLY CLOUDY.
--end test sample text block--

.WEDNESDAY really long line
.WEDNESDAY NIGHT really long line
.THURSDAY really long line

(my desired output)

--
Cheers! Alan.


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]