fixed bug in perl one-liner