Well after alot of bitching and complaining I decided "Hell, I think its about time to test what I have learned" so I did. I did this in about a week with only about 3 hours of actual work going into it. I will appreciate all comments, suggestions, put downs, kicks, punches, pokes and stabs. Thanx.

$_="f~r~e~e~d~o~m";s(\W){ }ig;  # freedom
my@a=split(/ /,$_);for($i=1;$i<($#a+($#a>>2));$i++)
{if($i==4||$i==5||$i==6){push @i, $a[$i];}}foreach
(@::i){$l.=$_}$_="to program";  # to program
s/to/tHE/;tr/a-zA-Z/A-Za-z/;$f=$::;$f.=";";my $p=
"2134P232e42342248249r23";$p=~s/(\d|\W)//g;$l=$l.$f;
$p.=chr((1<<6)+(1<<5)+12);$s=substr($_,-4);$s=substr(
$s,0,1);$s=~tr/A-Z/a-z/;$l=$s.$l;$_='munchkin';for $z #mikfire :)
(1..3){$q.=substr($_,-$z)}$q=substr($q,-3);$q=~s/(k)/uc($1)/e;
$l=$q.$l;print join(' ',$p,$l);


#     #     #     #     #  #
 #   #    #   #    #   #   #
  ##      #####     ##     #
  ##      #   #     ##     
  ##      #   #     ##     #
[download]

Wanna be perl hacker.
Dave AKA damian