perl is faster than sed