编辑代码

use Encode;
use utf8;
my $path = '11"D:\\1\\01-\x{130}STANBUL-Alperen Y\x{131}lmaz-1153249-2023-05-12_00017-003-15-14-waxup_slm_cad.stl.ptl"11';
$path =~ s/.*"(.*?)".*/$1/;
$path =~ s/\\\\+/\\/g;
print path;