hallo,
ich hätte da noch so eine Idee (quick and dirty)
$/ =']';
$x1 = <F1>;
$x2 = <F2>;
if ($x1 ne $x2){
$x1 =~ /([obj=\d+])/o;
print $1;
}
nur mal so als Ansatz.
Habs nicht bis zu Ende durchgedacht(Schleifensteuerung, Fehlerbehandlung etc.).
Grüße Oesi