use MIME::Words qw(:all);

$header = decode_mimewords($raw_header);