rm oops perl