Select Code to Download

$ecounter=0;
         my @file_line_contents = split (/\|/,$_); 
         while "$ecounter < 45" {
             $e$ecounter=length($file_line_contents[$ecounter]);
             $ecounter+=1;
         }