my $greek_file = '/path/to/greek.file';
open my $fh, '<:encoding(iso-8859-7)', $greek_file or die $!;
while ( my $line = <$fh> ) {
    print "yes" if $line =~ /$regex/;
}
close $fh;