$startOfData= tell DATA;
    while( <DATA> ) {
        ProcessData( $_ );
    }
    seek( DATA, $startOfData, 0 ) or die "Can't seek: $!";
    while( <DATA> ) {
        ReprocessedCheese( $_ );
    }

##</code><code>##

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