#!/usr/bin/perl --

use strict;
use warnings;

use HTML::DOM;

my $dom_tree = HTML::DOM->new;
$dom_tree->parse_file($filename);

for my $node ( $dom_tree->getElementsByClassName('className') ) {
    print $node->innerHTML;
}
[download]