use strict;
use warnings;
use feature 'say';

use Mojo::DOM;

my $html = '<select class="c-form__select" id="radius" name="radius" aria-label="Choose a distance from your postcode"><option value="">Distance (national)</option><option value="1">Within 1 mile</option><option value="5">Within 5 miles</option><option value="10">Within 10 miles</option><option value="15">Within 15 miles</option><option value="20">Within 20 miles</option><option value="25">Within 25 miles</option><option value="30">Within 30 miles</option><option value="35">Within 35 miles</option><option value="40">Within 40 miles</option><option value="45">Within 45 miles</option><option value="50">Within 50 miles</option><option value="55">Within 55 miles</option><option value="60">Within 60 miles</option><option value="70">Within 70 miles</option><option value="80">Within 80 miles</option><option value="90">Within 90 miles</option><option value="100">Within 100 miles</option><option value="200">Within 200 miles</option></select>';

my $dom = Mojo::DOM->new( $html );

# find each select

foreach my $select ( $dom->find('select')->each ){

  say "Found select named $select->{name} with the values/text:";

  # process each option

  foreach my $opt ( $select->find('option')->each ){
    
    say $opt->{value};
    say $opt->text;

  }

}