my @data = split;
s!$data[3]!encrypt($data[3])!eg if ($data[3] ne '-');
s!=(\d{9,10}|\D\d{8}|\d{4}\-\d{4}|\D\d{4}\-\d{4})!'='.encrypt($1)!eg;
print OUTPUT $_."\n";
[download]

sub encrypt {
        my $key = shift;
        if ($Translate{$key}) {
                $key =~ s|\Q$key\E|\#\#\#$Translate{$key}\#\#\#|g;
                return $key;
        }
        my $value;
        my @table = ('0'..'9','a'..'z','A'..'Z');
        while ($Used{$value}) {
                foreach $i (1..9) {
                        $value .= $table[rand($#table+1)];
                }
        }
        $Used{$value}++;
        $Translate{$key}=$value;
        open TABLE, ">>$dir/translate.dat";
        print TABLE "$key\t$value\n";
        close TABLE;
        $key =~ s|\Q$key\E|\#\#\#$value\#\#\#|g;
        return $key;
}
[download]