share some perl tricks for advent

Any comments are welcome. If it is fine, please move it to the articles folder? or I move it by myself. Thanks.