@uchar = split(//,$ucrypt);

##</code><code>##

my @vals = unpack('C*', $ucrypt);

##</code><code>##

my $mask = 0x80808080;
...
my @vals = map { $_ & $mask } unpack('N*', $ucrypt);