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

##</code><code>##

perl -pe"BEGIN{$/=''} s/^\s+//; s/\s(?=\s)//g" test.txt > test.out