Help for this page

Select Code to Download


  1. or download this
    CLÉ USB
CLÉMMY USB
  2. or download this
    CL? USB
CL?MMY USB
  3. or download this
    use strict;
use warnings;
...
    my $str = shift;
    return join q{} => ( map { ucfirst(lc($_)) } ( $str =~ m/(\W+|\w+)
+/g ) );
};
  4. or download this
    1: CL? USB
2: CLÉ USB
...
1: CL?MMY USB
2: CLÉMMY USB
3: ClÉMmy Usb