sub transform {
    my ($str) = @_;
    $str =~ s/"([^"]*)"/join(",",map{sprintf"0x%X",$_}unpack"C*",$1)/eg;
    $str;
}
print transform 'this is test of "Hello, World!"'