Select Code to Download

use Encode qw( decode );

...
   utf8::decode($s) or die("Not valid UTF-8");  # line 19
   1
} or print($@);

Using Encode::decode:
Cannot decode string with wide characters at .../Encode.pm line 174.

Using utf8::decode
Not valid UTF-8 at a.pl line 19.