http://qs321.pair.com?node_id=1050161


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."