Because I do not know `sed` and `awk` back in 2014

repeater.perl

#!/usr/bin/perl


open(INFILE1, "<list_of_classes.txt") or die "Couldn't open file, $!";
@listOfClasses = <INFILE1>;


@items = ();

#Split all the items of the list which might be
#seperated by commas(,), spaces ( ), or both (, ) or ( ,)
#and it shall be pushed into the blank @items array.
foreach $i (@listOfClasses){
		push @items, split (/,\s|,|[\s,]/ ,$i);
}

foreach $className (@items){
	if ($className ne ""){

		open(OUTFILE, '>>list.txt') or die "Couldn't create file, $!";
		print "\n$className is appended\n";
		
		#We will load the template as pristinely as possible 
		#to the @classTemplate array
		open(INFILE2, "<class_template.txt") or die "Couldn't open file, $!";
		@classTemplate = <INFILE2>;

		
		foreach $lineOfTemplate (@classTemplate){

			$lineOfTemplate =~ s/\#_\#/$className/g;
			
			#For debugging
			print "WRITING: $lineOfTemplate";

			#For writing onto file
			print OUTFILE $lineOfTemplate;
		}
		close (INFILE2);
		close (OUTFILE);
	}
}

close (INFILE1);