I will help you with one (well, actually both) programs.

#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;

$_=q~M1&5A<B!496%C:&5R+`H*22!H860@82!L:71T;&4@=')O=6)L92!W:71H('1HM92!
+P<F]G<F%M('EO=2!A<W-I9VYE9"X@22!A<VME9"!S;VUE;VYE"G1O(&AEM;'`@;64@86Y
+D('1H92!L:71T;&4@8G5G9V5R(&=A=F4@;64@=&AI<R!P<F]GM<F%M+B!)('=A<R!W;VY
+D97)I;F<*:68@>6]U(&-O=6QD(&=O(&]V97(@82!FM97<@<&]I;G1S(&]F('1H92!P<F]
+G<F%M(&%N9"!P;W-S:6)L>2!P;VEN=`IMM92!I;B!T:&4@9&ER96-T:6]N(&]F('-O;64
+@:&5L<&9U;"!R969E<F5N8V5SM+B!!;'-O+"!C86X@=V4@<F5V:65W"G1H92!U<V4@;V8
+@=&AE("=P97)L9&]CM)R!C;VUM86YD(&YE>'0@=V5E:S\*"@I4:&%N:W,L"D$@<W1U9&5
+N="!W:&\@/=VES:&5S('1O(&QE87)N~;
print unpack("u*",$_),$/;
[download]

It probably won't get you the grade for which you are looking, however, it just may get you the help that you need.

antirice    
The first rule of Perl club is - use Perl
The ith rule of Perl club is - follow rule i - 1 for i > 1