Bunch of Perl scripts I came up with