redballoonsecurity.com challenges

hexe1

6554 6c6c 6d20 2065 6261 756f 2074 6f79
7275 6620 7661 726f 7469 2065 6168 6b63
202e 6633 7033 6a39 6f66 6666 3961 646a
6c73 7333 7240 6465 6162 6c6c 6F6F 736e
6365 7275 7469 2e79 6f63 0a6d 540d 6C65
206C 656d 6120 6f62 7475 7920 756F 2072
6166 6f76 6972 6574 6820 6361 2e6b 3320
3366 3970 666a 666F 6166 6a39 7364 336C
4073 6572 6264 6c61 6f6c 6e6f 6573 7563
6972 7974 632e 6d6F 0d0a

hexe2

377ABCAF 271c0003 0241DD5f 17000000 00000000 58000000 00000000 baf0646a 00221bc9
c273209c aa0f0a55 3f195b82 2e8172d5 83000001 04060001 09170007 0b010001 23030101
055d0000 01000c11 00080a01 d1da43c2 00000501 111b0064 006f006e 00740066 00750063
006b0069 00740075 00700000 00140a01 0080f1f4 ceac5ed1 01150601 00208080 81000000

red1.pl

#!/bin/env perl -w
#
use Data::Dumper;
open(F, "<hexe1");
while(<F>) {
    foreach $chars(split / /,$_) {
        my($c1,$c2) = $chars =~ m/([a-f0-9]{2})+?/gi;
        print pack("H*H*", $c2, $c1);
    }
}
close(F);

red2.pl

#!/bin/env perl -w
#
use Data::Dumper;
open(F, "<hexe2");
open(E, ">7zipped");
while(<F>) {
    foreach $chars(split / /,$_) {
        my(@all) = $chars =~ m/([a-f0-9]{2})+?/gi;
        foreach my $c(@all) {
            print E pack("H*", $c);
        }
    }
}
close(F);
close(E);
END{
    qx{7z x 7zipped};
    print qx{cat dontfuckitup};
}

Why the second doesn't work. Writes me ""7z" ­¥ ï¥âáï ¢­ãâ७­¥© ¨«¨ ¢­¥è­¥©
ª®¬ ­¤®©, ¨á¯®«­ï¥¬®© ¯à®£à ¬¬®© ¨«¨ ¯ ª¥â­ë¬ ä ©«®¬.
"cat" ­¥ ï¥âáï ¢­ãâ७­¥© ¨«¨ ¢­¥è­¥©
ª®¬ ­¤®©, ¨á¯®«­ï¥¬®© ¯à®£à ¬¬®© ¨«¨ ¯ ª¥â­ë¬ ä ©«®¬."
What should I do?