format = 
^<~~ $_ . $/="" ; while (<>) {
    s/\s*\n\s*/ /g;
    write;
}