while (<>) {
	s# VFIN##;
	s#SOURCE#\#SOURCE#g;
	s#\(\"(.+?)\"#\(\'$1\'#;
	s#^(=*)([^\w\d]+)\n#=$1$2\n#;
	print $_;
}