perl search & replace

a simple script i made to replace multiple appearance of a word in a raw or multiple raws, output to file.new

#!/usr/bin/perl


if ($#ARGV != 2) {
  print "this programs output is FILENAME.new\n";
  print "usage: search_Replace.pl
     BEFORE AFTER FILENAME\n";
  exit;
}
$newfile_name = "$ARGV[2].new";

print "Before : ",$ARGV[0],"\n";
print "After  : ",$ARGV[1],"\n";
print "Opening ... ";
open (OLDF, $ARGV[2]) ||
   die ("Could not open file. $!");
open (NEWF, ">$newfile_name") ||
   die ("Could not create output file. $!");
print "IN/OUT pipes are open.\n";
while ($text = ){
    $text =~ s/$ARGV[0]/$ARGV[1]/g;
    print NEWF "$text";
    }
close (OLDF);
close (NEWF);