mojo_dom.pm

my $dom = Mojo::DOM->new($content);
my @e   = $dom->find('table tr th a[href]')->each;

my $items = [];

foreach my $element (@e) {
    if ( $element =~ /cgi/ ) {
        my $item     = $element->text;
        my $distance = $element->parent->next->next->next->text;
        my $altitude = $element->parent->next->next->next->next->text;
        my $azimuth  = $element->parent->next->next->next->next->next->text;
        my $object   = {
            name     => $item,
            distance => $distance,
            altitude => $altitude,
            azimuth  => $azimuth
        };
        push( @$items, $object );
    }
}