Select Code to Download

use strict;
use warnings;
...
) {
   print $_->[0], eval "$_->[1]; 1" ? "Success\n" : $@;
}

Symbol,  use utf8: Illegal declaration of anonymous subroutine at (eva
+l 1) line 1.
Symbol,  no  utf8: Illegal declaration of anonymous subroutine at (eva
+l 2) line 1.
Russian, use utf8: Success
Russian, no  utf8: Illegal declaration of anonymous subroutine at (eva
+l 4) line 1.