Small error in perl one-liner