#!/usr/bin/perl
use strict;
use 5.010;
use warnings;
binmode STDOUT, ':encoding(utf8)';

my $var = 223;
my ( $pack, @unpack );


$pack = pack 'A*', $var;
@unpack = unpack '(B8)*', $pack;        # schreibe $var interpretiert als Zeichen:
say "@unpack";                          # 00110010 00110010 00110011 ( 2 2 3 )

$pack = pack 'I*', $var;
@unpack = unpack '(B8)*', $pack;        # schreibe $var interpretiert als Zahl:
say "@unpack";                          # 11011111 00000000 00000000 00000000 (dezimal 223)

say "\n------------------------------------------------------\n";


# $pack im Speicher: 11011111 00000000 00000000 00000000

@unpack = unpack '(B8)*', $pack; # interpretiere den Wert im Speicher als eine Zahl, gib mir die Zahl in binärer Form
say "@unpack";                  # 11011111 00000000 00000000 00000000

@unpack = unpack 'I', $pack;  # interpretiere den Wert im Speicher als eine Zahl (Integer), gib mir die Zahl in dezimaler Form
say "@unpack";                  # 223

@unpack = unpack 'A', $pack; # interpretiere das erste Byte im Speicher als Zeichen
say "@unpack";                  # ß