use Encode;

my $string;

Encode::from_to($string, 'utf-16', 'utf-8');

##</code><code>##

my @digets = $string =~ /\p{Digit}+/g;