Select Code to Download

#!/usr/bin/env perl

...
tie my @records, 'Tie::File', 'pm_1069470.txt';
s/user={hhhfj}jshdfjhdfjh\\=/user=newvalue/ for @records;
untie @records;

$ cat pm_1069470.txt
blah blah blah
...
user=something else
user=newvalue
other data