One slight nit: if the file size isn't a multiple of the buffer size, the final seek will seek back too far and corrupt the final block.

while(sysread $fh, $_, $BUFSIZE ) {
      tr[123][123];
      sysseek $fh, -length(), 1;
      syswrite $fh, $_;
}
[download]

(untested).

Dave.