#! perl -slw
use strict;
use Time::HiRes qw[ time ];
use constant BUFSIZ => 4*1024; #50 * 1024**2;

my $start = time;

my $mask =  ( chr( 0 ) . chr( 3 ) ) x BUFSIZ;
my %map;

for my $i ( 0 .. 255 ) {
    my @Q;
    my @D = split '', unpack 'b8', chr $i;
    $Q[ 0 ] = $D[ 0 ];
    $Q[ 1 ] = $D[ 1 ] ^ $Q[ 0 ];
    $Q[ 2 ] = $D[ 2 ] ^ $Q[ 1 ];
    $Q[ 3 ] = $D[ 3 ] ^ $Q[ 2 ];
    $Q[ 4 ] = $D[ 4 ] ^ $Q[ 3 ];
    $Q[ 5 ] = $D[ 5 ] ^ $Q[ 4 ];
    $Q[ 6 ] = $D[ 6 ] ^ $Q[ 5 ];
    $Q[ 7 ] = $D[ 7 ] ^ $Q[ 6 ];
    my $outb = ord pack 'b8', join'',@Q;
    $map{ $i } =     $outb;
}

my $target = quotemeta pack 'C256', map $map{ $_ }, 0 .. 255;

eval "sub encodeHDMI {
    tr[\x00-\xff][$target];
}"; warn "$@" if $@;

$/ = \BUFSIZ;

open IN, '<:raw', $ARGV[ 0 ] or die "$ARGV[ 0 ] : $!\n";
binmode STDOUT, ':raw';

while( <IN> ) {
    encodeHDMI();
    my $out = pack 'S*', unpack 'C*', $_;
    $out |= $mask;
#    print;
}

printf "File: %d bytes took %.2f seconds\n",
    -s( $ARGV[0] ), time() -$start;

__END__
C:\test>825104 syssort
File: 3160000000 bytes took 200.48 seconds