RosettaCodeData/Task/Unicode-strings/Perl/unicode-strings-4.pl

2 lines
68 B
Perl

print "Say עִבְרִית" =~ /(\p{BidiClass:R})/g; # עברית