perldoc -U perlrun
pogledni opciq "-i[extension]", toest :

perl -p -i '.test' -e 's/\$HTTP_(POST|GET)_VARS/\$_$1/' *php

(move bi ste trqbwa da escapwash oste wednav !? toest \\ )

Mnogo si si uslovnil skripta movesh da obrabotwash failowete ako tolkowa iskash po sledniq nachin :

foreach $name (readdir(TEST)){
if($name =~ /.*\.php$/){
open INFILE, "<$name" or die "oops :$!";
undef $/;#slurp mode
my $content = <INFILE>;
close INFILE;
$content =~ s/\$HTTP_(POST|GET)_VARS/\$_$1/g;
open OUTFILE, ">$name.test" or die "opala : $!":
print OUTFILE $content;
close OUTFILE;
}
}