use MIME::WordDecoder;

    my $wd = supported MIME::WordDecoder "US-ASCII";

    ### Decode a MIME string (e.g., into Latin1) via the default decoder:
    my $str = $wd->decode( $rawSub );
    
    print $str, "\n";