open(IN, '<', $ifile) or die "Couldn't open file: $!\n";
my @data = <IN>;
close IN;

open(OUT, '>', $ifile) or die "Couldn't open outfile: $!\n";
foreach my $line (@data) {
    ### Do what you want
    print OUT "$line";
}