perl / awk Frage