$ perl -E 'use utf8;
 my $data = qq( { "cat" : "text – abcd" } );
 say $data
 '
Wide character in say at -e line 4.
 { "cat" : "text – abcd" }