Skip to content

Instantly share code, notes, and snippets.

@heikkil heikkil/txt2para.pl
Last active Dec 28, 2015

Embed
What would you like to do?
#!/usr/bin/env perl
# Turn consecutive non-empty lines of plain text into paragraphs
local $/ = "\n\n"; #paragraph separator
while (<>) {
chomp($_);
# Replace newlines inside paragraphs by spaces and remove multiple spaces
s/\n/ /g;
s/ +/ /g;
# Print each non-blank block out separated by the paragraph separator
print "$_\n\n" if (!(/^\s*$/));
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.