(C) 2003, Tim Maher       1-17       www.TeachMePerl.com
Better Perl Editing Command
Behold the Script!


#! /usr/bin/perl -wlps
our ($e,$i,$m,$s,$p); # avoid "used only once"
BEGIN {
    $U="Usage: $0 [-eimsp] 'old' 'new' f1.."
    @ARGV >= 3  or  die "$U";   $X="";
    $e  and  $^I=$$;  # file-ext is PID
    $i  and  $X.='i'; # ignore case
    $m  and  $X.='m'; # multi-line mode
    $s  and  $X.='s'; # single-line mode
    $p  and  $/="";   # paragaph mode
    $old=shift; $new=shift; # RE, replacer
    $command=" s/$old/$new/g$X "; # build
}
eval $command ; # process,  print