my ($content) = $str =~ /body=(?|"([^"]*)"|'([^']*)')/;