Select Code to Download

my @string;

...
}

  print $string[4],$/;

open(SYSLOG, "/tmp/log100lines") or die "Can't open file: $!\n";

...
        my @string = split(/ /, $line);  ## remove the function join
        print "$string[4]\n";
}

open my $fh, '<', "file_to_open" or die "can't open file: $!";

while(<$fh>){
 ...
}