fix that perl one-liner