Использование регулярного выражения для обработки HTML - плохая идея.Для этого я использую HTML :: TreeBuilder :: XPath.
use strict;
use warnings;
use HTML::TreeBuilder::XPath;
use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
$mech->get("http://www.someURL.com");
my $tree = HTML::TreeBuilder::XPath->new_from_content( $mech->content() );
my $div = $tree->findnodes( '//div[@class="tweetmeme_button"]')->[0];