Select Code to Download

use Encode;

my $string;

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

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