Select Code to Download

# first of all, adjust array subscripts, as suggested by arunhorne;
# then set $header[0] ;
...
  $header = <LOG> ;
  $header =~ /^".*\\(.*)"$/ and push @header, $1 ;
}