#!/usr/bin/perl

use strict;
use warnings;
use Mojo::UserAgent;
use feature 'say';
 
my $ua  = Mojo::UserAgent->new;
my $url = 'https://urlgoeshere';

my $dom = $ua->get( $url )->res->dom;

foreach my $div ( $dom->find('div[.class^=i"grouped-item product-purchase-wrapper"]')->each ){
  say $div->text;
}