#!/usr/bin/perl

use strict;

my $a;
my $content;

open E, "<C:/auburn_courses_replace.txt" or die "Unable to open file $!";

undef $/;

$a = <E>;

$/ = "\n";

close E;
open F, "<C:/auburn_courses.txt" or die "Unable to open file $!";
undef $/;

$content = <F>;

$/ = "\n";

close F;

open G, ">>C:/auburn_courses2.txt" or die "Unable to open file $!";

#print $content;
#print $a;

$content =~ s/$a//g;

print G $content;


close G;