parser.pl

#!/usr/bin/env perl

use strict;
use warnings;

use Mojo::DOM;
use Data::Dumper;

my $file;

{
    local $/;
    $file = <>;
}

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

print Dumper $dom->search('a');