use Encode qw( encode_utf8 );
    print Encode::encode_utf8($new_string);

 OR

    # Add an auto-encoding layer
    binmode (STDIN,':utf8');
    print $new_string;