$content =~ s/.*\+_(.*?)\+_.*/$1/s;
#or
$content = (split/\+_/,$content)[1];