#! /usr/bin/perl

#############################
# HaCkEr CaSe sCrIpT:AmAzE  #
#  YoUr FrIeNds WiTh YoUr   #
#    SuPeRiOr TyPiNg        #
#  CaPtuRe tO PhIlE wItH >  #
#############################
#     insert phile here     #
open (FILE, "+< /darkphiber/japh/" );
#############################
while (<FILE>){
        $line=$_;
        @letters=split //,$line;
        foreach $letter(@letters){
                if (defined $letter){
                $i=++$i;
                $case =$i/2;
if($case=~m/(\d)*(\.)+/g){caseup($letter)}
elsif($case=~m/(\d)*[^\.]+/g){casedown($letter)}
} }}
sub  caseup{
        shift ;
        $letter=uc $letter;
        print "$letter";
        }
sub  casedown{
        shift;
        $letter=lc $letter;
        print "$letter"
         }