#!/usr/bin/perl

use strict;
use warnings;

my $foo = "Zeile eins\nZeile zwei\nZeile drei\n";
print $foo;
print unpack( "H*", $_ ) . " " for split //, $foo;