Select Code to Download

my @intarray = unpack 'c*', "perl string";

my @intarray = map ord, split //, "perl string";

my $integer = vec "perl string", $i, 8;

$something = substr("a string", 4, 1) & 2**3;

$something = atoi("r") & 2**3;