Encode::from_to($string, 'UTF-16LE', 'utf8'); #### Encode::from_to($string, 'UTF-16LE', 'iso-8859-1'); #### my $string = '5/18/05 184 7 3.8% 6.14 1.13'; if ($string =~ m#(\p{Digit}+/\p{Digit}+/\p{Digit}+)#){ print $1; }