Data to parse:
----------
{"sentences":[{"trans":"text \"quotedtext\" othertext","orig":"tekst \"wcudzyslowach\" innytekst","translit":""}],"src":"en"}
----------



Perl code that doesn't work:
----------
if(@trans = $translate -> content =~ m/"trans":".*+(?<!\\)"/ig){
	foreach (@trans){
		$_ =~ m/"trans":"(.*+)(?<!\\)"/i;
		$translated .= $1;
	}
}
----------