format = 

^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~

$_



.



$/ = "";

while (<>) {

    s/\s*\n\s*/ /g;

    write;

}