open UTF8FILE,'<:utf8','filename';
while (<UTF8FILE>) {
  /\p{Devangari}/ and print "A Devangari character!\n";
}
close UTF8FILE;