Select Code to Download

  @results = grep( /^$line[3]/, @raw_data);

  @results = grep( (split(@_))[0] eq $line[3], @raw_data);