perl -i.bk do_it foo.bar