use Tie::File; tie @array, 'Tie::File', 'test'; foreach (@array){ s/RECORD/NEW RECORD/g; } untie @array;