It's simple.

use utf8;
use strictures;
use Web::Query qw();
my $w = Web::Query->new_from_html(<<'HTML');
<A HREF="story.do?id=6908144&publDate=20/6/2012"><div class="reportageStoryUTitle">«ΕΛΛΗΝΙΚΗ ΧΑΛΥΒΟΥΡΓΙΑ»</div>
HTML

print $w
    ->find(':contains("ΕΛΛΗΝΙΚΗ ΧΑΛΥΒΟΥΡΓΙΑ")')
    ->first     # "just grab the first piece of these similar fractions of html code"
    ->text