#!/usr/bin/perl -i #$Id$ #Update Copyright notice # my $old = "1995 -- 2007, T. V. Raman"; my $new = "1995 -- 2009, T. V. Raman"; while (<>) { s/$old/$new/o; print; }