Regular Expression Perl

#!/usr/local/bin/perl 
$count = 0; 
while ($ARGV[$count] ne "") { 
   open (FILE, "$ARGV[$count]"); 
   @file = 
   $linenum = 0; 
   while ($file[$linenum] ne "") { 
      $file[$linenum] =~ s/\d+/$& * 2/eg; 
      $linenum++; 
   } 
   close (FILE); 
   open (FILE, ">$ARGV[$count]"); 
   print FILE (@file); 
   close (FILE); 
   $count++; 
}