open ...;
open ...;
$/ = '';
while (<IN>) {
   s/^\s+//;
   s/\s(?=\s)//g;
   print OUT;
}