for ($output =~ /name=\"DV_DATA\" type=\"hidden\" VALUE=\"(.*?)\">/smi){
	
	$dv_data = $1;
	
}

##</code><code>##

	DV_DATA => $dv_data

##</code><code>##

$webpage =~ s/\'\//\"$base_address\//smig;

##</code><code>##

  $webpage =~ s!(=['"])/!$1$base_address/!g;