Practical Perl Tools: Give as Good as You Get, My Tiny Dancer