Ist $bool, wenn man es in der Schleife benutzt, ueberhaupt verfuegbar fuer?
unlink ($quelle) if $bool;
..?!
// EDIT:
$line =~ /irgendwas/ ? $bool = 0 : $bool = 1;
Koennte man noch anstatt renee's if konstruktion nehmen.
Oder?\n\n
<!--EDIT|RPerl|1181141898-->