Select Code to Download

while (<$fh_in>)
{
...
           #this works for files from any OS
   my @array = split(';',$_);
}

while (<$fh_in>)
{
...
   my ($first_thing) = split(';',$_);
   print "$first_thing\n";
}