Select Code to Download

#!/usr/bin/perl -w
use strict;
...
  say "2: ", xlc($l);
}
... sub xlc as you have it

1: CLÉ USB
2: Clé Usb
1: CLÉMMY USB
2: Clémmy Usb