Help for this page

Select Code to Download


  1. or download this
    Encode::from_to($string, 'UTF-16LE', 'utf8');
  2. or download this
    Encode::from_to($string, 'UTF-16LE', 'iso-8859-1');
  3. or download this
    my $string = '5/18/05  184  7    3.8%    6.14    1.13';

if ($string =~ m#(\p{Digit}+/\p{Digit}+/\p{Digit}+)#){
    print $1;
}