<div dir="ltr"><div>try this<br></div><div><br>#!/usr/bin/env perl -w<br>#<br><br>use v5.14;<br>use utf8;<br><br>my $text = 'שלוabv';<br><br>if ($text =~ /^[\x{5D0}-\x{5ea}]{3}/) {<br> say "yes";<br>} else {<br>
say "no";<br>}<br><br></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">On Thu, Apr 25, 2013 at 5:47 PM, Ori Idan <span dir="ltr"><<a href="mailto:ori@helicontech.co.il" target="_blank">ori@helicontech.co.il</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><br><div class="gmail_extra"><br><br><div class="gmail_quote"><div class="im">On Thu, Apr 25, <a href="tel:2013" value="+9722013" target="_blank">2013</a> at 5:21 PM, ik <span dir="ltr"><<a href="mailto:idokan@gmail.com" target="_blank">idokan@gmail.com</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex"><div dir="ltr"><div class="gmail_extra"><br><div class="gmail_quote">
<div><div>On Thu, Apr 25, <a href="tel:2013" value="+9722013" target="_blank">2013</a> at 5:17 PM, Ori Idan <span dir="ltr"><<a href="mailto:ori@helicontech.co.il" target="_blank">ori@helicontech.co.il</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex"><div dir="ltr">I have a script in perl where I read lines from a UTF-8 text file.<div>
I have to find out if a line contains at least 3 letters in Hebrew.</div>
<div><br></div><div>How can this be done in perl?</div></div></blockquote><div><br></div></div></div><div>What is your Perl version ?<br></div></div></div></div></blockquote><div><br></div></div><div>Perl 5 version 14.2</div>
<span class="HOEnZb"><font color="#888888">
<div><br></div><div>-- </div><div>Ori Idan</div><div><br></div></font></span></div></div></div>
</blockquote></div><br></div>