use strict;
use warnings;
use HTML::TreeBuilder;
my $str = do {local $/; };
get_birthday ($str);
sub get_birthday {
my $content = shift;
my $tree = HTML::TreeBuilder->new;
$tree->parse($content);
my @elements = $tree->look_down('_tag' => 'a');
for my $element (@elements) {
my $class_tag = $element->attr_get_i('class') || '';
if ($class_tag eq "mailtext") {
my $subject = $element->as_trimmed_text();
my $subject_url = $element->attr_get_i('href');
print "$subject\n";
print $element->look_up('_tag' => 'a')->all_attr() . "\n";
}
}
}
__DATA__
MetalinkErewhon