#!/usr/bin/perl

$file = $ARGV[0];
$search = $ARGV[1];
$replace = $ARGV[2];

if ($file eq "" || $search eq "" || $replace eq "") {
   print "$file\n";
   print "$search\n";
   print "$replace\n";
   die "Not enough arguments given";
}

open (INFILE,"< $ARGV[0]") || die "can't find input file";
open (TEMPFILE,"> sandr$$.tmp") || die "can't create temp file";

while($line = <INFILE>) {
	$line=~s/$search/$replace/gi;
	print TEMPFILE $line;
}

`mv sandr$$.tmp $ARGV[0]`;