...

    if ( $response -> is_success ) {
        $htmlsource = $response -> decoded_content();

        $writestring = parse( $htmlsource );
    }

    ...


##</code><code>##

    ...
    my $arial_unicode = $workbook -> add_format(font => 'Arial Unicode MS');
    $sheet -> write ( 0, 0, $writestring, $arial_unicode );
    ...