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