Select Code to Download

#! perl -slw
use strict;
...
1048578
My oh so unique signature

my $p = 0;
substr( $bigstring, $p, 4 ) = pack 'J', ..
$p += 4;

substr( $bigstring, $p+1 ) = '';