$ perl -Mstrict -Mwarnings -le 'my $x = []; print ref($x) eq "ARRAY" ? q{aref} : q{other}'
aref

##</code><code>##

$ perl -Mstrict -Mwarnings -le 'my $x = []; print ref($x) eq “ARRAY” ? q{aref} : q{other}'
Unrecognized character \xE2; marked by <-- HERE after ef($x) eq <-- HERE near column 30 at -e line 1.