lol perl