$text =~ s/^\n+|\n+$//g;
$text =~ s/\n{3,}/\n\n/g;