If you're lazy, then try Tie::File:

#!/usr/bin/perl -w
use strict;
use Tie::File;

tie my @a, "Tie::File", "/tmp/foo" or die $!;
for (@a) {
    s/hello/goodbye/gi;
}
[download]