#!/usr/bin/perl

@quoted_words =
qw/tot hier tothier tohiert hallo test hier sind quoted words
	tot nice nein totototot tottot quotet words sind wörter/;

for (@quoted_words)
{
	s/tot/nein/g;
}

$

print "Ergebnis:\t" , @quoted_words , "\n";