while (m!<div class="soda[^"]*">(.*?­)</div>!g) {
  say "matched!";
  my $grp = $1;
  say $grp;
}