#!/usr/bin/env perl

use strict;
use warnings;
use autodie;

use Tie::File;

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