while ($utfzeile =~ m/\"(.*)\"/)
     
		    {
			 $anfstr = index($utfzeile,$hochkomma,0);
			 $endstr = index($utfzeile,$hochkomma, $anfstr +1);
			 $laenge = $endstr - $anfstr;
			 $teilzeile = substr($utfzeile,$anfstr, $laenge);
			 $neuzeile = $teilzeile;
			 $neuzeile =~ s/\,|\;|\|//g;
			 $neuzeile =~ s/$hochkomma//g;
			 $utfzeile =~ s/$teilzeile/$neuzeile/;
			 
			};