#!/usr/bin/env perl

# address-pseudonymise [file] or read STDIN

use strict;
use warnings;

my (%addr2number, $i);
while (<>) {
  s:^==\d+==:==[PID]==:; # if you used valgrind, replace process ID
  s:0x([0-9a-f]+):
    '[ADDR'.($addr2number{$1} //= ++$i).']'
  :gie;
  print;
}