$var =~ /(>IPI:)([^| .]*)([^>]*)/   ;#meine gesuchte variable steht in $2 da in diesem ausdruck.
    }
} 
close (IN);
close (suchdatei);
close (OUT);
print "\nDateien  geschlossen, Kopiervorgang