Stuff from messing around with and learning Perl