Select Code to Download

    $startOfData= tell DATA;
    while( <DATA> ) {
...
    while( <DATA> ) {
        ReprocessedCheese( $_ );
    }

    ( $text= $binary ) =~ s#([^ -~])#
        sprintf "\\x%02.2x",unpack("C",$1) #ge;
    print "$text\n";