package string;

sub replace
{
	
      	
# REEMPLAZA EL CONTENIDO DE UNO EN OTRO
	my ($template_text,%vars) = (@_);
    	while($template_text =~ m/%([a-z|_|\-|0-9|A-Z]*)%/g)
    	{
        	if(defined($vars{$1}) )
         	{
              	my $tmp = $vars{$1};
              	$template_text =~ s/%$1%/$tmp/g;
		}
         }
    
return $template_text;
}

1;