use warnings;
use strict;
use Mojo::UserAgent;
use Mojo::DOM;

my $ua = Mojo::UserAgent->new( max_redirects=>3 );
my $dom = $ua->get(
	'https://wiki.oceannetworks.ca/display/O2A/Available+Deployments'
	)->result->dom;
$dom->find('.confluenceTable tr')->each(sub {
	my $tr = shift;
	my ($locationCode, $deviceCode, $dateFrom, $dateTo) = map {
		$tr->find(".confluenceTd:nth-of-type($_)")
			->map('all_text')->join } 1..4;
	print "locationCode=$locationCode, deviceCode=$deviceCode, ",
		"dateFrom=$dateFrom, dateTo=$dateTo\n";
});