Ich glaube gerne, dass das lange dauert. Das liegt IMHO aber weniger an den "verwendeten utils" selber, sondern mehr daran, dass in jedem Schleifendurchlauf neun(!) Subprozesse erzeugt werden; das macht bei 6000 Zeilen immerhin 54000 neue Prozesse.

Um das effizient in Perl umzuschreiben, waere es aber gut, wenn du uns noch etwas ueber die Eingabedaten verraetst. Zum Beispiel kann ich so nicht sehen, warum du in jeder Zeile Leerzeichen durch Pipezeichen ersetzt, dann aber nur einzelne Eintraege herauspickst. Oder was in $FILE.desc steht und ob es sich nicht lohnt, das im Speicher zu halten, statt es fuer jede Eingabezeile neu zu durchsuchen.