#Function Call
my $newText = replaceText($inputText, $regex, $replacement);

#Function
sub replaceText{
	my($inputText, my $regex, my $replacement)= @_;

	my $replacedText;
	if($inputText =~ s/$regex/$replacement/g){
		$replacedText = $1;

	}
	
	
	return $replacedText;
}