use Mojo::DOM;
use LWP::Simple;
my $dom=Mojo::DOM->new(get("http://www.perl-community.de/bat/poard/thread/19260"));
$dom->find("div.author_info small")->each(sub { say $_->text });