Select Code to Download

- say "Current input line is @_";
+ say "Current input line is $_";

- @tmpConv = split ",",$_;
+ @tmpConv = split ",";

my $tmpStar;
my $tmpRS;
...
  @tmpConv = split ",",$_;
  $tmpStar = $tmpConv [1];
  $tmpRS = $tmpConv[0];

while (<$STARFile>){
  [...]
  my ($tmpRS, $tmpStar) = split ",";