#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

use HTML::TableExtract;

my $te = 'HTML::TableExtract'->new;
$te->parse(do { local $/; <> =~ s/\\"/"/gr });
for my $table ($te->tables) {
    for my $row ($table->rows) {
        chomp @$row;
        say "@$row[0, 1]";
    }
}

##</code><code>##

Envvironment Last Updated
bus00eqa 25-Apr-2020
bus00eqz 29-Feb-2020
den00pyy 25-Apr-2020

##</code><code>##

#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

use XML::LibXML;

my $dom = 'XML::LibXML'->load_html(
    string => do { local $/; <> =~ s/\\"/"/gr });

for my $row ($dom->findnodes('//table/tbody/tr')) {
    my @cells = $row->findnodes('td | th');
    say join ' ', map $_->textContent, @cells[0, 1];
}