The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
std::string   T_STD_STRING

INPUT
T_STD_STRING
    $var = std::string( SvPV_nolen( $arg ), SvCUR( $arg ) );

OUTPUT
T_STD_STRING
    $arg = newSVpvn( $var.c_str(), $var.length() );