Help for this page

Select Code to Download


  1. or download this
        $str =~ tr/-/ /;           #replace - with a space
    $str =~ tr/a-zA-Z/ /cs;    #replace non letter with a space
  2. or download this
    $w =~ s/(\p{isLower})(\p{isUpper})/$1 $2/g or
    $w = ucfirst( lc($w) );
  3. or download this
    #!/usr/bin/perl
use strict;
...
Yao W-M.
Yao W. -M
Yao W. -M.