Verschachtelte for-each Schleifen mit s///

[Beat]

[code lang=perl]
foreach (@input_datei)
{
$var1 =$_;

foreach (@input_datei_2){
$_=~s#$var1#<a href="$1">$1</a>#;

mit $var suchst du nach nach dem Literal $var.
du suchst \Q$var
$1 referenziert den Inhalt der ersten Klammer.
Ich finde bei dir keine Klammer.
Im übrigen ist in $var am Ende ein Linefeed \n enthalten.

mfg Beat