How do you use regex with Unicode properties with a short example?

Perl, regex, Unicode, properties, example

This example demonstrates how to use regex with Unicode properties in Perl.

use strict;
use warnings;

# Example of using Unicode properties in regex
my $string = "Hello, 世界!";  # "World" in Chinese
if ($string =~ /\p{Han}/) {   # Checking for Han (Chinese characters)
    print "The string contains Chinese characters.\n";
} else {
    print "No Chinese characters found.\n";
}

Perl regex Unicode properties example