my $raw = join '', <DATA>;
    $raw =~ s/\n//g;

    if(my($encoded) =
       ($raw =~ /0002000000(.*?)00020400/)) {

        while($encoded =~ /(..)/g) {
            print chr (hex($1)), "\n";
        }
    }

__DATA__
045a010000020000004c45534f4e
4452412043414c4c454420424143
4b2c204920414456495345442054
48415420574500020400

##</code><code>##

L
E
S
O
N
D
R
A
 
C
A
L
L
E
D
 
B
A
C
K
,