#!/usr/local/bin/perl -w

#
# This program demonstrates Locale::Hebrew v1.04 support for UNICODE
# (use Perl 5.8 and above)

 
use Locale::Hebrew 1.04;
use locale;

 
          eval ('

         use 5.8.3;
         use encoding utf8;

         my $msg= "\x{5e9}\x{5dc}\x{5d5}\x{5dd}\x20\x31\x32\x33";

         print "Original   utf8: ",$msg, "\n";

         my    $new_msg = hebrewflip($msg);

         print "Result     utf8: ","$new_msg", "\n"; 
          ');

 print $@ if $@;

-------------------------------

Output:

Original   utf8: �©���

                      Result     utf8: 123 ��©