perl -i.bk do_it *.bar