Possible attempt to separate words with commas at - line 14.
Use of uninitialized value in substitution (s///) at - line 2.
Use of uninitialized value in substitution (s///) at - line 2.

##</code><code>##

use strict;
$==0;eval
q;\$uhJ;;$@=~s^\^^\\^;eval
join q,,,map{$=-=0b111x2-ord;$@=~m;^.{$=}(.);;$1}qw
$u ;
Q c S % N Q K Y V < = x ) g 9 W L P P Z : ? g 8 @ l T U 5 2 } 1
$;