use MIME::WordDecoder;

    my $wd = new MIME::WordDecoder::US_ASCII;
    $wd->unknown( '_' ); # What to translate unknown characters to
    $wd->collapse( 1 ); # Collapse runs of unknown characters to a single unknown
    
    print $wd->decode( $rawSub ), "\n";