#! /usr/bin/perl

my $prog = '';

{
    my $key  = 6;
    local $/;

    $prog = pack "c*",
             map { $_ ^= $key }
             unpack "c*", <DATA>;
}

eval $prog;
__END__
# a bunch of packed data here