$string=~s#(^")([^\n]+)("$)#$1.Quot($2).$3#eg;

sub Quot
{
	my ($line)=@_;
	$line=~s#"#"#g;
	return $line;
}