Select Code to Download

$dom->find('.release-date-item')
    ->grep(sub { $_->at('.release-date-item__country-name')
        ->all_text =~ /^\s*USA\s*$/ })
    ->each(sub { print $_->at('.release-date-item__date')
        ->all_text, "\n" });