Hallo benji2010,

vorweg: Mit if wird keine Schleife definiert.

Du kannst innerhalb Deiner while(my $line=<DATA>)-Schleife schreiben:
– falls wirklich die Zeichenfolge "(" gesucht wird, sonst halt die Quotes streichen.
Wenn zuvor Einrückungen stehen können, müssen diese auch berücksichtigt werden:
– hier mal ohne Quotes.

Übrigens oben muss in Zeile 13 der Punkt noch escaped werden, sonst matcht er jedes Zeichen.

HTH
Grüße
payx