Use awk instead of perl