$ perl -E '
    my $x = qq{  <div class="soda odd">\n    Power. Grace. Wisdom. Wonder.\n  </div>};
    say $x;
    $x =~ m{<div class="soda[^>]+>\s*(.*?)\s*</div>}ms;
    say "|$1|";
'
  <div class="soda odd">
    Power. Grace. Wisdom. Wonder.
  </div>
|Power. Grace. Wisdom. Wonder.|