perl -i.bak -pe 's/pattern/replacement/'
##</code><code>##

#!/usr/bin/perl 

$^I = ".bak"; 

while (<>) { 
    s/pattern/replacement/; 
    print;
}