Select Code to Download

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;
}