#!C:\Perl\bin -w

open(X, "<w") || die "can't open test file ($!)\n";
#open(X1, ">out2") || die "can't open this writeout! ($!)\n";

while(<X>) {

   if ((length $_) < 78) {
    print; #X1;
   }	
   elsif (length $_ > 78) {
   	for ($i = 77; $i > 43; $i--) {
		if (/.{$i} .*/) {
        	s/(.{$i}) (.*)/$1\n+ $2/;
            		if (length $2 < 78) {
            		#print X1 "$1\n+ $2\n";
                        print "$1\n+ $2\n";
            	        }
		        elsif (length $2 > 78) {
            	        #print X1 "$1\n";
            	        print "$1\n";
			$tmp = $2;
			      if (length $tmp < 78) { 
				print "\n+ $tmp";
			      }
                              elsif (length $tmp > 78) {
                                   for ($i = 77; $i > 43; $i--) {
				        if ($tmp =~ /.{$i} .*/){
                                        $tmp =~ s/(.{$i}) (.*)/$1\n+ $2/;
                                             if (length $2 < 78) {
                                             print "+ $tmp\n";
					     }
                                        }	
				   }   
                              }


        	        }    
                 }
	}
             	
   }
}