#!/usr/bin/perl

use strict;
use warnings;

my $a;

$a = "/i/αινσϊύz/pl";

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

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

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

exit(0);

##</code><code>##

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

##</code><code>##

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