Select Code to Download

use utf8;
use Encode;

...
print $unicodeScalar;
print '['.Encode::is_utf8($cmdLineArg).'] '.$cmdLineArg;
print '['.Encode::is_utf8($stdInLine).'] '.$stdInLine;

$ perl -CSDA t.pl `cat accents_utf8`
éè
[1] Je suis une cha▒ne accentu▒e l▒ o▒ il faut
+.
Je suis une cha▒ne accentu▒e l▒ o▒ il faut.
[] éèàùôî
[] éè

perl -CSDA t.pl `cat accents_utf8`
éè
[1] Je suis une chaîne accentuée là où il faut.
Je suis une chaîne accentuée là où il faut.
[1] éèà ùôî
[1] éè

$ perl t.pl `cat accents_utf8`
éè
[1] Je suis une cha▒ne accentu▒e l▒ o▒ il faut
+.
Je suis une cha▒ne accentu▒e l▒ o▒ il faut.
[] éèàùôî
[] éè

$ perl t.pl `cat accents_utf8`
éè
[1] Je suis une chaîne accentuée là où il faut.
Je suis une chaîne accentuée là où il faut.
[] éèà ùôî
[] éè