open(my $FileH,"+<$meterFile"){ while (<$FileH>) { if ($_ =~ /sdpRowId:(.*)/){ #print "$_ \t $rowId\n"; $_ =~ s/sdpRowId:(.*)/sdpRowId: /g; print $FileH $_; } } close($FileH);