#!/usr/bin/perl 

use Getopt::Long;
use IPC::Open2;

GetOptions("f=s" => \$f,
           "o=s" => \$o,
           "e=s" => \$e,
           "r=s" => \$r);

$file = $f;
$original = $o;
$end = $e;
$replace = $r;

open (DATA, "<$file");
	while (<DATA>) {
		chop;
		$_ =~ s/$original/$replace/g;
		push @filestrings, $_;
	}
close (DATA);

open (DATA, ">$file");
	while ($i <= $#filestrings) {
		print DATA "$filestrings[$i]\n";
		print "$filestrings[$i]\n";
		$i++;
	}
close (DATA);