Some Nifty Tricks with Perl