#!/usr/bin/perl

use strict;
use warnings;
use charnames ':full';

binmode STDOUT, ':utf8';

my $a;

$a = "/i/\N{LATIN SMALL LETTER A WITH ACUTE}\N{LATIN SMALL LETTER E WITH ACUTE}\N{LATIN SMALL LETTER I WITH ACUTE}\N{LATIN SMALL LETTER O WITH ACUTE}\N{LATIN SMALL LETTER U WITH ACUTE}z/pl";

print qq(1: ),$a,qq(\n);

($a) = ($a =~ m/^([\/\p{Word}]+)/);

print qq(2: ),$a,qq(\n);


##</code><code>##

1: /i/αινσϊz/pl
2: /i/αινσϊz/pl