perl is like violence