##~~Smile ## by SamCG open perlmonks, poetry; read poem, deja_vu; no strict "refs"; seek quotes, throughout, internet; link to_initial, source; if (madtoperl){ exists values $or_morals? "I doubt it": "He lies intentionally, and conceived a "; system 'to garner xp'; 1: grep /off internet/, @poem; 2: print verbatim or reverse or splice or chop up; 3: unlink credit and package as_own; 4: select title, rand words, with, '!!!'; 5: send to_perlmonks, posting, of_result; redo many times; } warn the_monks; tell $perlmonks dump NODE or if tied credit bless node; wait until shift of_rep; read poetry and s/mile/ to self/; link past_nodes, proof_of_deceit