use strict;
use warnings;

my $tagl =  do {local $/; <DATA>};
if($tagl =~ /<div class=\"soda.*?>(.*?)<\/div>/ism) {
  my $grp = $1;
  print "'$grp'\n";
}

__DATA__
    <div class="soda odd">
            Power. Grace. Wisdom. Wonder.
          </div>
    <div class="soda even">
            Wonder. Power. Courage.
          </div>
    <div class="soda odd">
            The future of justice begins with her
          </div>

##</code><code>##

'
            Power. Grace. Wisdom. Wonder.
          '