Help for this page
#!/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