remove extra space when folding

[nvllsvm]

Folding in the encode function prepends an extra space to the new line. For example, the following:

use feature qw(say);
use Encode qw/encode decode/;

$string = 'I\"m Time Mime I\"m Time Mime I\"m Time Mime I\"m Time Mime I\"m Time Mime I\"m Time Mime';
$string = encode('MIME-Header', $string);

say $string;

Returns:

I\"m Time Mime I\"m Time Mime I\"m Time Mime I\"m Time Mime I\"
 m Time Mime I\"m Time Mime

When it should return:

I\"m Time Mime I\"m Time Mime I\"m Time Mime I\"m Time Mime I\"
m Time Mime I\"m Time Mime