in reply to Regex to fix up records, some multiline fields, some not

Try the unfold method of Text::LineFold

print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."

In Section Seekers of Perl Wisdom