$text =~ s/^[ \t\r]*$/

/mg; ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl