(C) 2003, Tim Maher       1-14       www.TeachMePerl.com
Scriptified Editing Command
change_file


#! /usr/bin/perl -wlp -i.bak

BEGIN {
  @ARGV >=3  or
    die "Usage: $0 'old' 'new' f1 [f2..]\n";
  $old=shift; $new=shift; # extract args
}
s/$old/$new/g;
vgap 2.5

Examples
$ change_file '\bWINE\b' 'COLD WINE' menu

avoid changing SWINE -> SCOLD WINE !