#!/usr/bin/perl -w            	                       
                     open                      (O,$0)  	   
                &&                 map                      	          
       {s/( {2,})/print                    '  '                  eq$1?       
                    ' '              :  chr          0x5e+   length     
             $1/eg       }                    <O>