#!/usr/bin/perl -w
use strict;

open(FOO, "+< $foo") or die "Can't open $foo: $!";
while (<FOO>) {
    chomp;
    my $line = $_;
    $line = s/hello/goodbye/gi;
}
close FOO;