FOO
BAR



BAZ



#### $text = </g; $text =~s/\n{1,1}/
/g; $text =~ s//>\n/g; print $text; ##
## FOO
BAR

BAZ