#!/usr/bin/perl
use strict;
use warnings;
use utf8;

my $str="Marc-Andre André Макси Лерочка";

print "NAME: $1\n" while($str=~/([\w-]+)/gc);