#!perl -i

# or:
# $^I = '';

@ARGV = ('myfile');

while (<>) {
  s/foo/bar/;
  print;
}