Simplify perl line.