With this code:

#!/usr/bin/perl
use warnings FATAL => 'all';
use strict;
use MIME::QuotedPrint;

my $encoded = "=4E=6F=74=65=73=0A=4E=6F=74=65=73=20=6C=69=6E=65=20=32";
print decode_qp($encoded);

my $decoded = "Imported today";
$encoded = encode_qp($decoded);
print "n$encodedn";

The first print statement gives exactly what I was expecting, but the second gives Imported today= instead of =49=6D etc.

What am I doing wrong?