$text =~ s/^[ \t\r]*$/<p>/mg;




-----------------------------------------------------------------------------
Copyright 1997-2026 Jeffrey Friedl