#!/usr/bin/perl -w -i.bak -p

s/frog/toad/g;