#!/usr/local/bin/perl -w
# string2chars.pl -- Zerlege Strings in einzelne Zeichen mit unpack().

$string = "Hello World!";
@chars  = unpack("a1" x length($string), $string);

print '@chars: ', join(':', @chars), "\n";
# Ausgabe: @chars: H:e:l:l:o: :W:o:r:l:d:!

$normal   = "WICHTIG";
$gesperrt = join(' ', unpack('a1' x length($normal), $normal));
print ">$gesperrt<", "\n";
# Ausgabe: >W I C H T I G<