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

s/foo/toto/g; 

s/^\s*//;