Select Code to Download

foreach my $line (@configFile) {
   next if $line =~ /^\s*$/;
   ...

foreach (@configFile) {
   chomp;  # careful of last line in file
...
      $error = 1;
   }
}

   when (/^\s*(ScriptName:)\s+(\S+)\s*$/) {
      $tag= $1;
      $scriptName= $2;
   }

   when (/^\s*Step\s+(\d):\s*(.*)/) {
      $stepNum = $1;
      $command = $2;
      $step[$stepNum] = $command;
   }

foreach my $command (@step) {
   next unless defined $command;  # skip unused numbers
   my $ret= system ($command);
   ...
 }