X:\>perl 11162789.pl
Argument "1/8" isn't numeric in numeric eq (==) at 11162789.pl line 16.
Argument "1/8" isn't numeric in numeric eq (==) at 11162789.pl line 16.
Argument "1/8" isn't numeric in numeric eq (==) at 11162789.pl line 16.
Argument "1/8" isn't numeric in numeric eq (==) at 11162789.pl line 16.
Argument "1/8" isn't numeric in numeric eq (==) at 11162789.pl line 16.
Argument "1/8" isn't numeric in numeric eq (==) at 11162789.pl line 16.
Argument "1/8" isn't numeric in numeric eq (==) at 11162789.pl line 16.
Argument "1/8" isn't numeric in numeric eq (==) at 11162789.pl line 16.
Argument "1/8" isn't numeric in numeric eq (==) at 11162789.pl line 16.
Argument "1/8" isn't numeric in numeric eq (==) at 11162789.pl line 16.
Argument "2/8" isn't numeric in numeric eq (==) at 11162789.pl line 16.
Argument "2/8" isn't numeric in numeric eq (==) at 11162789.pl line 16.
Argument "2/8" isn't numeric in numeric eq (==) at 11162789.pl line 16.
Argument "2/8" isn't numeric in numeric eq (==) at 11162789.pl line 16.
Argument "2/8" isn't numeric in numeric eq (==) at 11162789.pl line 16.
Argument "2/8" isn't numeric in numeric eq (==) at 11162789.pl line 16.
Argument "2/8" isn't numeric in numeric eq (==) at 11162789.pl line 16.
Argument "2/8" isn't numeric in numeric eq (==) at 11162789.pl line 16.
Argument "2/8" isn't numeric in numeric eq (==) at 11162789.pl line 16.
ERRORS = 0

X:\>perl -v

This is perl 5, version 14, subversion 2 (v5.14.2) built for MSWin32-x64-multi-t
hread

Copyright 1987-2011, Larry Wall

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl".  If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.


X:\>

##</code><code>##

  return %same == 1 ? 1 : 0;

##</code><code>##

  hasSameChars("ABC\x{ABCD}", "ABC\x{CDEF}")                   == 0 or $ERRORS++;

##</code><code>##

...
Use of uninitialized value in join or string at 11162789.pl line 14.
Use of uninitialized value in join or string at 11162789.pl line 14.
Use of uninitialized value in join or string at 11162789.pl line 14.
Use of uninitialized value in join or string at 11162789.pl line 14.
Use of uninitialized value in join or string at 11162789.pl line 14.
Use of uninitialized value in join or string at 11162789.pl line 14.
Terminating on signal SIGBREAK(21)
Use of uninitialized value in join or string at 11162789.pl line 14.
Terminating on signal SIGBREAK(21)
Use of uninitialized value in join or string at 11162789.pl line 14.

X:\>

##</code><code>##

    "@count"

##</code><code>##

...
Argument "2/8" isn't numeric in numeric eq (==) at 11162789.pl line 16.
Argument "2/8" isn't numeric in numeric eq (==) at 11162789.pl line 16.
Argument "2/8" isn't numeric in numeric eq (==) at 11162789.pl line 16.
Argument "2/8" isn't numeric in numeric eq (==) at 11162789.pl line 16.
Argument "2/8" isn't numeric in numeric eq (==) at 11162789.pl line 16.
Argument "2/8" isn't numeric in numeric eq (==) at 11162789.pl line 16.
Argument "2/8" isn't numeric in numeric eq (==) at 11162789.pl line 16.
Use of uninitialized value in join or string at 11162789.pl line 14.
Use of uninitialized value in join or string at 11162789.pl line 14.
Use of uninitialized value in join or string at 11162789.pl line 14.
Argument "2/8" isn't numeric in numeric eq (==) at 11162789.pl line 16.
ERRORS = 0

X:\>