share some perl tricks for advent