my (undef, $data) = /TAG:("?)((??{ $1 ? '[^"]+' : '[^"\s]+' }))\1/;
$data //= 'not_def';