#!/usr/bin/perl


my $html=`curl http://egressy.eu/helyettesites/subst_left.htm`;

print $html;

my $dom = Mojo::DOM->new;
$dom->parse($html);
my $skip;
for my $dd ($dom->find('dd[class*="message"]')->each) {
    print $dd->attrs->{id}, "\n" if $skip++;
}