Weird perl is weird