while (<FILE2>) { # aus Dateien aus @ARGV

s~($verodert)~<mark>$1</mark>~gi;
push @file, $_;
print @file;

}

close FILE2;