sub scanForSubstringReplaceLine{
	my($inputText, $subStringToScan, $lineReplacement) = @_;
	my $replacedText;

        $inputText =~ s/$subStringToScan/$lineReplacement/g;

	$replacedText = $inputText;
	return $replacedText;
}