#!/usr/bin/perl -pi.orig
    s/foo/bar/;