In-place editing of multiple files in a directory using Perl's diamond and in-place edit operator

Question

I am trying to in-place edit a bunch of text files using Perl\'s in-place edit operator $^I. I traverse through the directory using the diamond (<>) operator like this:

Answer 1

Couldn't you just store the information from @ARGV that you still need into another variable?

$^I = ".bak";

my @options = @ARGV;
@ARGV = <*.txt>;

while (<>)
{
    s/((?:^|\s)-?)(0+)(?=\s|$)/$1.$2/g;
    print;
}