skriver forkerte linie til fil

[Kim Schulz <sslug@sslug>]

Hejsa
Jeg har følgende kode der giver mig lidt problemer. 
Ideen er at den skal skrive alle linier der IKKE indeholder det som er i
qq linien til filen, men den skriver KUN det som er i qq linien i
stedet. Hvor er fejlen. jeg kan ikke lige gennemskue det. 

Desuden er det som om den aldrig kører den Rename som kommer lige
bagefter.



sub Undelete {
    print "Undeleting $TH_OPT2 from trash...\n";
    #### read IN, $buffer, -s "";
    $SIZE = (-s "$TPATH/$TH_OPT2");
    open IN, "<$TPATH/placements.xml";
    open OUT, ">$TPATH/temp.xml";
    while (<IN>) { 
    if (/$TH_OPT2/){
	    if (/PATH=\"(.*)\"/){
		    $OUT_PATH = $1;
	            }
         print OUT unless $_ eq qq("<FILE NAME="$TH_OPT2"
PATH="$OUT_PATH" SIZE="$SIZE">");
         rename "$TPATH/$TH_OPT2", "$OUT_PATH/$TH_OPT2";
}
    
  }
    close IN;
    close OUT; 
   
    print "File $OUT_PATH/$TH_OPT2 size: $SIZE undeleted
Succesfully..\n";
    rename "$TPATH/temp.xml", "$TPATH/placements.xml";

}
}

MVH
sslug@sslug